掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridの数値Sort (ID:15233)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
昔、こんなコードを書いたことがあります。 これは参考になりませんでしょうか？ 数値だと桁合わせをしないといけませんが・・・ procedure pGdColSort(Gd: TStringGrid; ColNo: integer; boUpDown: Boolean); { Gd : 対象グリッド名 ColNo : 対象列 boUpDown: 昇順(True)降順(False) } var SL: TStringList; r: integer; begin SL := TStringList.Create; try SL.Sorted := False; for r := 0 to Gd.RowCount - 1 do begin SL.Add(Gd.Cells[ColNo, r] + ',' + Gd.Rows[r].CommaText); end; SL.Sorted := True; for r := 0 to Gd.RowCount - 1 do begin if boUpDown then //昇順 Gd.Rows[r].CommaText := Copy(SL[r], Pos(',', SL[r]) + 1, 255) else //降順 Gd.Rows[r].CommaText := Copy(SL[Gd.RowCount - 1 - r], Pos(',', SL[Gd.RowCount - 1 - r]) + 1, 255); end; finally SL.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.