怎样使ListView按数字的大小排序
编号：QA003555
建立日期: 2000年11月16日 最后修改日期：2000年11月16日
所属类别：
yinwei:
操作系统: windows98
编程工具: delphi5
问题: 怎样使ListView按数字的大小排序？
我已经看了VB的方法(QA000600 "ListView如何按数字大小排序")，但是不一定适用 Delphi。
水平: 刚入门
回答:
Delphi中进行排序的原理和VB相同，但是比VB更简单。设置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;
此问题由李海回答。
| |
|
|
| |
|
|
