怎样给;listview按数字大小排序?

[hjp0214]

设置ListView的

SortType属性为stBoth。然后在OnCompare事件中输入比较大小的代码。
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2:

TListItem;
Data: Integer; var Compare: Integer);
var m, n :integer;
begin
m := StrToInt(Item1.Caption);
n := StrToInt(Item2.Caption);
Compare := m - n;
end;

但listciew就是没有排序呢?

[pidi]

The following code orders a list view in reverse alphabetical order on the click of a button. The callback function CustomSortProc calls the global CompareText function and negates its return value.

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;//自己写回调函数。
begin
Result := -CompareText(Item1.Caption,Item2.Caption);
//你可改成按数字大小排序
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.CustomSort(@CustomSortProc, 0);
end;

你看看帮助，很详细的