//如此实现
//也可参考帮助TCustomListView.CustomSort的使用
Function Compare(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := lstrcmp(PChar(TListItem(Item1).Caption),
PChar(TListItem(Item2).Caption));
end;
procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ListView1.CustomSort(@Compare,0);
end;
