ListView einträge vergleichen

[Bad-Newbie]

Hey Leute,
ich hoffe ihr könnt mir helfen.
Ich habe ein Problem mit der Listview und zwar möchte ich das die einträge verglichen werden...

Stellt euch vor ihr habt eine Liste mit ~400 IPs und mehr (genaue zahlen kann man nicht nennen das es vom Tag abhängt)
Und jetzt soll die sparte ein farbigen Hintergrund bekommen, wo eine neue IP beginnt:
z.B

192.168.0.1
192.168.0.1
192.168.0.1
192.168.0.20
192.168.0.20
192.168.0.20
192.168.0.20
192.168.0.10
192.168.0.10
192.168.0.10

ist sowas möglich??
Wenn nicht wäre da auch noch eine andere idee z.B das die Gleichen IP's eine hintergrund Farbe bekommen.

192.168.0.1
192.168.0.1
192.168.0.1
192.168.0.20
192.168.0.20
192.168.0.20
192.168.0.1
192.168.0.1
192.168.0.10
192.168.0.10

Das Problem ist das es keine Festen IP's sind...

Ich hoffe ihr versteh worauf ich hinaus möchte und das ihr mir da vllt helfen könnt.
Habe in xx Foren nachgeschaut aber solches nicht gefunden.
Wenn das hier die falsche Rubrik ist bitte ich vielmals um entschuldigung.

mfg
Bad-Newbie

[iaby]

probiers mal so:

Delphi-Quellcode:

for i:= 1 to listview.items.count - 1 do
  begin
  if listview.items[i - 1] <> listview.items[i] then
  //färbe item[i], source dazu gibts z.b bei swissdelphicenter.ch
  end;

gruss,
iaby

PS: source ist nicht getestet!

[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

[Bad-Newbie]

Danke!!

ListView1.Items[ListView1.Items.Count-1] einfärben mit ItemColor << und wie?

sorry für diese dumme frage aber ich blick gerade gar nicht mehr durch...

[Dani]

Ist keine dumme Frage, weil ein bischen umständlich :-/

Wie man den Hintergrund einfärbt steht hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=818

vielleicht funktioniert das auch mit Canvas.Font.Color oder Canvas.Pen.Color...

[Bad-Newbie]

Daran hatte ich auch schon gedacht aber bis jetzt noch nicht probiert.

Ich denke das "kleine" programm was ich schreiben will wird sicherlich ne lebensaufgabe...

ich bin ziemlich eingerostet und muss mir ersteinmal wieder einiges aneignen...

Danke nochmal