|
こんにちは。
StringListでソートとなると、どうしても文字列のソートになってしまうから、
あまり使わないので、自分の使う方法。
StringGridで表示する場合、大抵別のクラスで行ごとのデータを持っているから
THoge=class
Col1: String;
Col2:Integer;
Col3:TDateTime;
end;
とか宣言し、TClassListに全データ入れてしまう。
そして、StringGridへの初回表示は、以下のようにObjectsを使って、行と実データを
関連付けしてしまう。
var
i: Integer;
begin
//行数確保
StringGrid.RowCount := ClassList.Count + 1;
//０列にクラス参照設定
for i := 1 to StringGrid.RowCount -1 do
begin
StringGrid.Objects[0,i] := ClassList.Items[i-1];
RowUpdate(i);
end;
end;
各セルへの更新は 関連付けされたデータを参照して行う
procedure TForm1.RowUpdate(aRow: Integer);
var
hoge: THoge;
begin
hoge := StringGrid.Objects[0,aRow];
StringGrid.Cells[0, aRow] := hoge.Col1;
StringGrid.Cells[1, aRow] := IntToStr(hoge.Col2);
StringGrid.Cells[2, aRow] := FormatDateTime('yyyy/mm/dd', hoge.Col3);
end;
ソートは、StringList.CustomSort()を使う。
function StringListSortCompareA(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := AnsiCompareString(THoge(List.Objects[Index1]).Col1,
THoge(List.Objects[Index1]).Col2);
end;
function StringListSortCompareB(List: TStringList; Index1, Index2: Integer): Integer;
begin
//
end;
var
stringList: TStringList;
i: Integer;
begin
stringList := TStringList.Create;
stringList.Assign(StringGrid.Cols[0]);
StringList.CustomSort(StringListSortCompareA);
StringGrid.Cols[0].Assign(stringList);
for i := 1 to StringGrid.RowCount -1 do RowUpdate(i);
stringList.Free;
end;
TStringListSortCompareを使い、１対１の比較関数を作るので、複数列をキーに並び替えできる。
別途作成した機能で、THogeの内容を更新しても、RowUpdate関数で、内容を反映できる。
個別の比較関数が必要になるので、汎用的ではありませんけど。
|