ListView Sortierung: Markierung auf ausgewähltem Icon beibeh

[K-Asche]

So Funktioniert es jetzt:

Delphi-Quellcode:

Var TL  : TListItem;
    S   : String;
    I   : Integer;
begin
  TL  := lvTermine.Items[lvTermine.ItemIndex];
  S   := TL.Caption;
  I   := 0;
  //Sortierung
  while S <> lvTermine.Items[I].Caption do Inc(I);
  lvTermine.ItemIndex := I;
End;