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 を使います。