Redundanzprüfung

[TBx]

Hallo Danku!

Was soll das Ganze denn bewirken?

Wenn Du nur verhindern möchtest, daß über das Editfeld doppelte Werte in die Listbox übergeben werden, so kannst Du das am einfachsten bei der Übergabe lösen:

Delphi-Quellcode:

procedure Button1Click (Sender:TObject);
begin
  if lbfilter.items.indexof (edfilter.text) > -1 then
  begin
    showmessage ('Redundanzproblem!');
    edfilter.SetFocus;
  end
  else
  begin
    lbfilter.items.Add (edfilter.Text);
  end;
end;

Dies hat den Vorteil, daß alle Items dahingehend überprüft werden, ob sie dem Text des Edits entsprechen.

Bei Deiner Methode werden immer nur zwei aufeinanderfolgende Einträge verglichen, sodaß Eingaben ala
eins
zwei
drei
eins
zwei
drei
möglich wären.

Zur Erklärung, warum Du eine Zugriffsverletzung bekommst, wenn der Wert in der letzten und in der vorletzten Zeile Deiner Listbox identisch sind, liegt in dieser Zeile:

lbfilter.selected [i] Diese Zeile ist zum einen sinnlos (wie in dem vorherigen Thread erklärt), zum anderen greift sie in diesem Fall auf ein nicht mehr vorhandenes Item:
Du hast zuvor das Item, das einen Platz zuvor in der Liste steht [i-1] gelöscht. Dadurch rückt item [i] auf den Platz von item [i-1] auf und ein Item [i] ist nicht mehr vorhanden.

Hope it helps

Thomas