くだすれDelphi(超初心者向け） Part6

952 ：950：03/10/04 00:26

>>951
釣れた(藁

953 ：デフォルトの名無しさん：03/10/04 00:27

>>1-1000
釣れた(藁

954 ：951：03/10/04 00:28

>>952
なんでこんなに簡単に釣れるのだろう？（激藁

955 ：950：03/10/04 00:29

>>954
またまた釣れたーーーーーーっ!!!(嘲笑激藁

956 ：デフォルトの名無しさん：03/10/04 00:29

やっぱりこのスレ荒らしてるのもアホアンチだな

957 ：デフォルトの名無しさん：03/10/04 00:30

>>955
またか（藁

958 ：950：03/10/04 00:30

>>957
まただ(笑

959 ：デフォルトの名無しさん：03/10/04 00:31

もうそろそろアクセス規制したほうがいいと思われ。
厨ウザイ。

960 ：デフォルトの名無しさん：03/10/04 00:33

982 名前：デフォルトの名無しさん：03/10/04 00:30
えらい肩書きのやつもくそをしたりあせもかく汚い生き物さ

983 名前：デフォルトの名無しさん：03/10/04 00:32
>>982
それは興味深い話です。
詳しく話を聞かせてください。

961 ：デフォルトの名無しさん：03/10/04 00:33

aaa
bbb
ccc

のような内容の外部テキストfoo.txtを読み込んで、
１行ずつ配列に入れるにはどうしたらいいんでしょうか？

962 ：961：03/10/04 00:33

釣れた（藁

963 ：デフォルトの名無しさん：03/10/04 00:34

@hairetsu=<FILE>;

964 ：デフォルトの名無しさん：03/10/04 00:35

初歩的な質問なのですが、
Delphiで作成したアプリケーションのウィンドウサイズを変更できないようにするにはどうしたらよいのでしょうか？

965 ：デフォルトの名無しさん：03/10/04 00:34

>>961
人のネタパクるなよｗ

966 ：964：03/10/04 00:35

釣れた(ﾜﾗ

967 ：961：03/10/04 00:37

事故解決しました。

968 ：デフォルトの名無しさん：03/10/04 00:38

Doubleの変数に格納されている数から小数点以下を取り出す、
あるいは整数部分だけを取り出す方法を教えてください。

969 ：デフォルトの名無しさん：03/10/04 00:39

>>968
小学校の算数レベルの問題です。

970 ：デフォルトの名無しさん：03/10/04 00:40

>>969
釣れた(w

971 ：デフォルトの名無しさん：03/10/04 00:41

>>970
釣れた(藁

972 ：デフォルトの名無しさん：03/10/04 00:52

放置でよろしく

973 ：デフォルトの名無しさん：03/10/04 00:53

村山スレにｶｴﾚ

974 ：デフォルトの名無しさん：03/10/04 02:27

>>968
Frac(1.23) -> 0.23
Int(1.23) -> 1.0
Int の返り型は実数型だから必要であれば型変換を。

975 ：デフォルトの名無しさん：03/10/04 02:30

>>964
Constraints プロパティを設定。
または Form の BorderStyle を bsDialog にしちゃうとか。

976 ：デフォルトの名無しさん：03/10/04 02:31

>>961
SL := TStringList.Create;
SL.LoadFromFile( foo.txt )
for ind := 0 to SL.Size - 1 do
　writeln( SL[ind] );

977 ：デフォルトの名無しさん：03/10/04 05:25

文字列のすべての制御文字をまとめて削除したいのですが、
どうすればよいでしょうか。

978 ：デフォルトの名無しさん：03/10/04 05:51

速度を気にしなければ

for ch := #00 to #31 do
　s := StringReplace(s, ch, '', rfReplaceAll);

979 ：977：03/10/04 06:15

自己解決しました。

980 ：デフォルトの名無しさん：03/10/04 06:24

>>977
function delChar( str:string ; delset:TSysCharSet):string;
var siz:Integer;
var i,j:integer;
begin
siz:=length(str);
setlength(result,siz);
j:=1;
for i:=1 to siz do
　if not (str[i] in delset )
　then begin result[j]:=str[i];inc(j);end;
setlength(result,i);
end;

使い方
文字列 := delChar( 文字列 , [ #0..#31 ] );

タブは削除しないなら

981 ：977(本物)：03/10/04 06:30

>>978 >>980
乙

982 ：980：03/10/04 06:32

ごめん最後 setlength(result, j-1) だ

983 ：977(本物)：03/10/04 06:33

もうバグ無いよね？

984 ：980：03/10/04 06:33

あ、タブを削除しないなら [ #0..#8 , #10..#31] ね

985 ：デフォルトの名無しさん：03/10/04 07:13

質問者はトリップつけたほうがいいかもね

986 ：デフォルトの名無しさん：03/10/04 07:50

トリップがあると混乱が減るとはおもう。
けど自己解決しようがしまいが、解答つけてあげるから、俺は気にしないぞ。