掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridの数値Sort (ID:15232)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
StringGridの数値Sortを以下のように書いて実行するとエラーになります。 原因はCustomSortあたりにありそうですが・・・？ procedure TForm1.GridSort(Sg: TStringGrid; SortCol: Integer); var St1,St2:TStringList; i:Integer; SortCompare:TStringListSortCompare; begin St1:=TStringList.Create; ST1.Assign(Sg.Cols[SortCol]); For i:=Sg.FixedRows To Sg.RowCount-1 Do Begin St2:=TStringList.Create; St2.Assign(Sg.Rows[i]); St1.Objects[i-Sg.FixedRows]:=St2;End; St1.CustomSort(SortCompare); For i:=Sg.FixedRows To Sg.RowCount-1 Do Begin Sg.Rows[i].Assign(TStringList(St1.Objects[i-Sg.FixedRows])); TStringList(St1.Objects[i-Sg.FixedRows]).Free;End; St1.Free; end; //------------------ function TForm1.SortCompare(St: TStringList; Index1, Index2: Integer): Integer; var V1,V2:integer; begin V1:=StrToInt(St[Index1]); V2:=StrToInt(St[Index2]); if V1=V2 then result:=0 else if V1>V2 then result:=1 else result:=-1; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.