喫茶XRAY [Mr.XRAY掲示板]

こんにちは。

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関数で、内容を反映できる。

個別の比較関数が必要になるので、汎用的ではありませんけど。