名前
題名
▼ たてぐやさん > ▼ takiさん > > 私はこんなコードを長年使っています。参考になれば。 > > > procedure TFrmMain.GridSort(Grid: TStringGrid; SortCol: Integer); > {=============================================================================== > グリッドをソートする。 > ===============================================================================} > var > str_St1: TStringList; > str_St2: TStringList; > int_i: Integer; > begin > str_St1 := TStringList.Create; > str_St1.Assign(Grid.Cols[SortCol]); > > for int_i := 1 To Grid.FixedRows Do str_St1.Delete(0); > for int_i := 0 to str_St1.Count - 1 do > str_St1.Strings[int_i] := str_St1.Strings[int_i] + #1 + Format('%.10d',[int_i]); > for int_i := Grid.FixedRows to Grid.RowCount - 1 do begin > str_St2 := TStringList.Create; > str_St2.Assign(Grid.Rows[int_i]); > str_St1.Objects[int_i - Grid.FixedRows] := str_St2; > end; > str_St1.Sort; > > for int_i := Grid.FixedRows to Grid.RowCount - 1 do begin > Grid.Rows[int_i].Assign(TStringList(str_St1.Objects[int_i - > Grid.FixedRows])); > TStringList(str_St1.Objects[int_i - Grid.FixedRows]).Free; > end; > str_St1.Free; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link