Question

delphi tlistview 设置了4个列，希望单击列可以排序

可是呢，这个listview里有设置分组
要排序的是 第一列,如何做呢？我用了这样的代码
function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall;
begin
if ColumnIndex = 0 then
Result := CompareText(Item1.Caption,Item2.Caption)
else
Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1])
end;
procedure TfrmMgmt.lvSvrColumnClick(Sender: TObject; Column: TListColumn);
begin
lvSvr.CustomSort(@CustomSortProc,Column.Index);
end;
单击第一列可以排序，可是不想让后面3列也排序。（后面3列单击提示out of bounds）
4个列分别是 服务器名,用户名，状态，备注，只需要以服务器名排序就可以了，如何搞呢

Answer 1

procedure TfrmMgmt.lvSvrColumnClick(Sender: TObject; Column: TListColumn);
begin
if Column.Index=0 then //只有第一列排序
lvSvr.CustomSort(@CustomSortProc,Column.Index);
end;