3e Spalte Listview auf doppelte Eintraege kontrollieren?

[lucius]

Hallo Leute,

Ich moechte von meiner Listview die 3e Spalte kontrollieren auf doppelte Eintraege, hab auch schon etwas Code aber ich kom nicht weiter.

Delphi-Quellcode:

procedure TMain.DoppeltClick(Sender: TObject);
var
k : integer;
begin
for k := listview.Items.Count -1 downto 0 do
      begin
          if listview.Items.IndexOf(listview.Items.Item[k].SubItems[2]) <> k then
          listview.Items[k].Delete;
      end;
end;

Kann mir jrmand bitte helfen?
Besten Dank im voraus.

MFG, Lucius.

[Bernhard Geyer]

Schmeiß doch alle Werte in eine TStringList wobei du Duplicates auf dupError setzt.
Dann kommt schon eine Exception wenn doppelter Eintrag gefunden wird.

[lucius]

Hi Bernhard,

Ich wollte das aber mal ohne TStringList versuchen.

[Bernhard Geyer]

Zitat:

Zitat von lucius

Hi Bernhard,

Ich wollte das aber mal ohne TStringList versuchen.

na wenn's sein Muss.

Zwei verschachtelte Schleifen wobei die innere ab dem Item startet wo die äußere aktuell ist und anschließend
vergleich der beiden ausgewählten Einträge.

[lucius]

Habe jetzt folgenden Code aber der klappt noch nicht so ganz.

Delphi-Quellcode:

procedure TMain.DoppeltClick(Sender: TObject);
var
D1, D2: integer;
begin
while D1 < listview.Items.Count do
begin
  for D2 := (listview.Items.Count - 1) downto 0 do
  begin
    if (listview.Items.item[D1].SubItems[2] = listview.Items.item[D2].SubItems[2]) then
      listview.Items[D2].Delete;
  end;
  inc(D1);
end;
end;

Gruss Lucius.

[Bernhard Geyer]

Probier mal

Delphi-Quellcode:

for D2 := (listview.Items.Count - 1) downto D1+1 do

[lucius]

Nee klappt nicht Bernard.

[Bernhard Geyer]

Was passiert denn?

[lucius]

Es passiert gar nichts bei dein Code Bernard, wenn ich meinen nehme loescht er wohl Items aber viel zu viele und danach gibts ne Exception.

[Bernhard Geyer]

Zitat:

Zitat von lucius

Es passiert gar nichts bei dein Code Bernard, wenn ich meinen nehme loescht er wohl Items aber viel zu viele und danach gibts ne Exception.

Wenn Du mittels

Delphi-Quellcode:

for D2 := (listview.Items.Count - 1) downto 0 do

durchläufst hat D2 irgendwann den Werte von D1 und damit wird das gerade aktuelle Item auch gelöscht, da der Vergleich immer True ist.