ListView Sortierung: Markierung auf ausgewähltem Icon beibeh

[Martin K]

Wie gesagt, ich habe zwar nicht viel Ahnung von ListViews, aber wenn ich mir den Code so anschaue, müsste man ihn noch vereinfachen können:

Delphi-Quellcode:

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

Da sparst du dir dann eine Variable !

Gruß, Martin