ListView einträge vergleichen

[Dani]

... oder so:

Delphi-Quellcode:

var i: Integer;
    ItemColor: TColor;
begin
 ItemColor := clAnfangsFarbe;
 for i:=0 to ListView1.Items.Count-2 do
  begin
   *Item[i] einfärben mit ItemColor*;
   If ListView1.Items[i+1].Caption <> ListView1.Items[i].Caption then
    ItemColor := *Nächste Farbe*;
  end;
 *ListView1.Items[ListView1.Items.Count-1] einfärben mit ItemColor*;
end;

...alle Angaben ohne Gewähr