Delphi初心者のための寺子屋

Delphi初心者のための寺子屋 at TECH

91:デフォルトの名無しさん
05/12/23 12:10:18
>>88-89

リストクラスはもっとも簡単そうな文字列のリスト TStringList から始めます。
最初はソートの練習です。

procedure TForm1.Button1Click(Sender: TObject);
var
　　sl: TStringList;
　　i: integer;
begin
　　Randomize;
　　sl := TStringList.Create;
　　try
　　　　for i := 1 to 20 do sl.Add(IntToStr(Random(1000)));
　　　　Memo1.Lines.Assign(sl);
　　finally
　　　　sl.Free;
　　end;
end;

にすると、0-999 のランダムな数値に対応する文字列が sl に２０個保持され、その内容が Memo1 に
表示されます。コードを継ぎ足して、数値の小さい方から（昇順）並べ直して見てください。

TStringList.CustomSort を使います。

次ページ

続きを表示

1を表示