Сортировка данных в ListView

[Shouldercannon]

Если в Caption ListView есть < Новое подключение >, то оно всегда остаётся внизу при любом направлении сортировки. А если < Новое подключение > находится в SubItems, то как в этом случае будет выглядеть код сортировки?

[Аватар]

Лучше напиши конкретно, что помещаешь в SubItem-ы и какой хочешь вид получить в разных режимах сортировки. А так телепатию напрягать нужно

[Shouldercannon]

Сообщение от Аватар

Лучше напиши конкретно, что помещаешь в SubItem-ы и какой хочешь вид получить в разных режимах сортировки. А так телепатию напрягать нужно

Спрашивается для кого я выложил исходник.

[Sibedir]

Еще раз просмотрел вложение.
Ей богу, Shouldercannon, не понятно, что нужно то? Как в итоге должны отсортироваться строки? Я так понял, что вам нучно, чтобы < Новое подключение > всегда оставалось снизу при любом направлении сортировки.

[Аватар]

procedure TFormServerInfo.LVServersCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var s1,s2: String;
begin
  Compare := 0;
  case SortColumn of
  0: if SortOrder = 0 then Compare := CompareText(Item1.Caption, Item2.Caption)
                      else Compare := -CompareText(Item1.Caption, Item2.Caption);
  1: begin
       s1:=Item1.SubItems[0]; if s1='' then s1:='-1';
       s2:=Item2.SubItems[0]; if s2='' then s2:='-1';
       if StrToInt(s1)>StrToInt(s2) then Compare:=1
       else if StrToInt(s1)<StrToInt(s2) then Compare:=-1;
       if SortOrder = 1 then Compare:=-Compare;
     end;
  2: if SortOrder = 0 then Compare := CompareText(Item1.SubItems[1], Item2.SubItems[1])
                      else Compare := -CompareText(Item1.SubItems[1], Item2.SubItems[1]);
  3: begin
       s1:=Item1.SubItems[2]; if s1='' then s1:='-1';
       s2:=Item2.SubItems[2]; if s2='' then s2:='-1';
       if StrToFloat(s1)>StrToFloat(s2) then Compare:=1
       else if StrToFloat(s1)<StrToFloat(s2) then Compare:=-1;
       if SortOrder = 1 then Compare:=-Compare;
     end;
  end;
end;

Добавил для SortColumn=3 нужно брать Item1.SubItems[2]

[Shouldercannon]

Игнорирование сортировки < Новое подключение > происходит благодяря

    if Item1.SubItems[0] = '' then Exit;
    if Item2.SubItems[0] = '' then Exit;

Если < Новое подключение > будет в SubItem, а не Caption, тогда

    if Item1.SubItems[1] = '' then Exit;
    if Item2.SubItems[1] = '' then Exit;