掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列を昇順するには？ (ID:26144)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
そのような場合はTStringList.CustomSortを使用します。 下記が例です // 金額比較用 function PriceCompare(List: TStringList; Index1, Index2: Integer): Integer; var C1, C2: Currency; begin C1:= StrToCurr(List[Index1]); C2:= StrToCurr(List[Index2]); if C1 < C2 then Result:= -1 else if C1 > C2 then Result:= 1 else Result:= 0; end; procedure TForm1.Button1Click(Sender: TObject); var Buffer: TStringList; Edits : TList; I: Integer; begin Edits := TList.Create; Buffer:= TStringList.Create; try for I:= 1 to 10 do begin Edits.Add(FindComponent('Edit' + IntToStr(I))); Buffer.Add(TEdit(Edits[Edits.Count - 1]).Text); end; Buffer.CustomSort(PriceCompare); for I:= 0 to Buffer.Count - 1 do TEdit(Edits[I]).Text:= Buffer[I]; finally Buffer.Free; Edits.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.