Hallo,
danke erstmal für deine Vorschläge, Marabu! Ich werde sie gleich einmal testen und dann Antwort geben.
Zitat von
Sascha L:
Hallo onkelrossie,
Ich frage mich, wieso du ein break nutzt? Damit fliegst du komplett aus der for-schleife raus. Du willst aber doch weiterhin vergleichen. Warum machst du es nicht so:
Delphi-Quellcode:
1
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sl: TStringList;
begin
sl:= TStringList.Create;
for i := 0
to ListView1.Items.Count - 1
do begin
if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2])
then //Exception
sl.Add(IntToStr(i+1));
end;
end;
Das hatte ich auch schon versucht aber ich bekam dann eine
Exception in der Zeile die ich oben markiert habe, da der Listenindex übersprungen wird. Wie gesagt es war auch schon spät in der Nacht und ich konnte nicht mehr klar Denken. Wenn ich den Code jetzt so sehe dann ist mir klar das es ListView1.Items.Count - 2 heisen muss da ich ja auch immer beim vergleichen eine zeile dazu addiere. Ich habs nun auf ListView1.Items.Count - 2 geändert und schon gings.
HG
Onkelrossie