我有2列的StringGrid:Player
和Scores
。我必须对这张桌子进行排序,看看球员的得分。
就是这种情况。我尝试使用StringGrid3.SortColRow(true, 1);
,但它只对字符串值进行排序。如果我有[1,4,12,3]这样的数字,则排序的StringGrid变为[a,12,3,4]。
我必须对Integer值进行排序,而不是字符串1。另外,我的问题是我必须用数字移动玩家的名字(如上图所示)。
我怎么能这样做?
答案 0 :(得分:5)
如果两个比较值都是数字,您可能会编写一个试图按Numbers排序的比较器。通过将Stringgrid转换为其祖先TCustomgrid,您可以使用MoveRow过程来交换行。显示对多列进行排序的示例如下所示:
unit StringGridSortEnh;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TMoveSG = class(TCustomGrid);
TSortInfo = Record
col: Integer;
asc: Boolean;
End;
function CompareNumber(i1, i2: Double): Integer;
// Result: -1 if i1 < i2, 1 if i1 > i2, 0 if i1 = i2
begin
if i1 < i2 then
Result := -1
else if i1 > i2 then
Result := 1
else
Result := 0;
end;
// Compare Strings if possible try to interpret as numbers
function CompareValues(const S1, S2 : String;asc:Boolean): Integer;
var
V1, V2 : Double;
C1, C2 : Integer;
begin
Val(S1, V1, C1);
Val(S2, V2, C2);
if (C1 = 0) and (C2 = 0) then // both as numbers
Result := CompareNumber(V1, V2)
else // not both as nubers
Result := AnsiCompareStr(S1, S2);
if not Asc then Result := Result * -1;
end;
procedure SortGridByCols(Grid: TStringGrid; ColOrder: array of TSortInfo; Fixed: Boolean);
var
I, J, FirstRow: Integer;
Sorted: Boolean;
function Sort(Row1, Row2: Integer): Integer;
var
C: Integer;
begin
C := 0;
Result := CompareValues(Grid.Cols[ColOrder[C].col][Row1], Grid.Cols[ColOrder[C].col][Row2],ColOrder[C].asc);
if Result = 0 then
begin
Inc(C);
while (C <= High(ColOrder)) and (Result = 0) do
begin
Result := CompareValues(Grid.Cols[ColOrder[C].col][Row1], Grid.Cols[ColOrder[C].col][Row2],ColOrder[C].asc);
Inc(C);
end;
end;
end;
begin
for I := 0 to High(ColOrder) do
if (ColOrder[I].col < 0) or (ColOrder[I].col >= Grid.ColCount) then
Exit;
if Fixed then
FirstRow := 0
else
FirstRow := Grid.FixedRows;
J := FirstRow;
Sorted := True;
repeat
Inc(J);
for I := FirstRow to Grid.RowCount - 2 do
if Sort(I, I + 1) > 0 then
begin
TMoveSG(Grid).MoveRow(i + 1, i);
Sorted := False;
end;
until Sorted or (J >= Grid.RowCount + 1000);
Grid.Repaint;
end;
procedure TForm1.Button1Click(Sender: TObject);
const // we want to use only 4 columns
MyArray: array[0..3] of TSortInfo =
((col: 1; asc: true),
(col: 2; asc: true),
(col: 3; asc: true),
(col: 4; asc: false)
);
begin
SortGridByCols(StringGrid1,MyArray,true);
end;
procedure TForm1.Button2Click(Sender: TObject);
const // we want to use only one column
MyArray: array[0..0] of TSortInfo = ((col: 1; asc: true));
begin
SortGridByCols(StringGrid1,MyArray,true);
end;
end.
答案 1 :(得分:2)
在Lazarus中,您可以使用OnCompareCells
事件定义TStringGrid排序的单元格,请参阅以下链接以及如何使用数字和更多信息执行此操作的示例。
http://wiki.lazarus.freepascal.org/Grids_Reference_Page#Sorting_Columns_or_Rows
如果要对Delphi中的行进行排序,则需要重新实现Lazarus中的SortColRow
方法。
您可以使用类助手
执行此操作请注意,这尚未完全测试!
然后可以淹没以下过程中的AnsiCompareStr
以比较整数。
type
TStringGridHelper = class helper for TStringGrid
public
procedure SortColRow(IsColumn: Boolean; Index: Integer); overload;
procedure SortColRow(IsColumn: Boolean; Index: Integer; FromIndex: Integer; ToIndex: Integer); overload;
end;
implementation
procedure TStringGridHelper.SortColRow(IsColumn: Boolean; Index: Integer);
begin
if (IsColumn) then SortColRow(IsColumn, Index, FixedCols, ColCount - 1)
else SortColRow(IsColumn, Index, FixedRows, RowCount - 1)
end;
procedure TStringGridHelper.SortColRow(IsColumn: Boolean; Index: Integer; FromIndex: Integer; ToIndex: Integer);
var i, p, x, c : Integer;
s1, s2 : String;
begin
if (IsColumn) then
begin
for x := ToIndex downto FromIndex do
for I := FromIndex to ToIndex - 1 do
begin
s1 := Cells[i, index];
s2 := Cells[i + 1, index];
c := AnsiCompareStr(s1, s2);
if (c > 0) then
begin
p := i + 1;
p := Max(p, FromIndex);
p := Min(p, ToIndex);
MoveColumn(i, p);
end;
end;
end
else
begin
for x := ToIndex downto FromIndex do
for I := FromIndex to ToIndex - 1 do
begin
s1 := Cells[index, i];
s2 := Cells[index, i + 1];
c := AnsiCompareStr(s1, s2);
if (c > 0) then
begin
p := i + 1;
p := Max(p, FromIndex);
p := Min(p, ToIndex);
MoveRow(i, p);
end;
end;
end;
end;
答案 2 :(得分:1)
您使用Lazarus而不是Delphi吗?我不知道标准Delphi StringGrid实现中的排序功能。
问题是StringGrid只是一个字符串网格。它不知道字符串实际上是数字,所以它只能按字母顺序排序。
如果您正在寻找比网格提供的更复杂的排序能力,那么您有几个选择。要么覆盖TStringGrid
类并生成你自己的专用版本,以便按你想要的方式排序(我担心我没有Lazarus源代码可以提供更具体的说明),或者你可以简单地在将记录放入网格之前对记录进行排序。
例如,如果您有一个代表您的播放器及其分数的TPlayer
课程,那么您可以在循环并填充网格之前使用TList.Sort(..)
对其进行排序。
//
// Sort the player scores by their *numeric* value, not by the string representation
//
function SortByPlayerScore(A, B: Pointer) : integer
begin
Result := TPlayer(A).Score - TPlayer(B).Score;
end;
// ....
list.Sort(SortByPlayerScore);
grid.RowCount := list.Count + 1;
for i := 0 to list.Count - 1 do begin
grid.Cells[0, i + 1] := list[i].Name;
grid.Cells[1, i + 1] := IntToStr(list[i].Score);
end;