Redundanzprüfung

[danku]

hm eigentlich nicht.

das ist die methode von dem tbutton:

Delphi-Quellcode:

procedure Tfmformat.baddClick(Sender: TObject);
var counter,i:integer;

begin
lbfilter.items.Add(edfilter.text);
lbfilter.Sorted:=true;
edfilter.Clear;
counter:= lbfilter.Items.Count;
label2.caption:='(' + inttostr(counter) + ')';
if label2.caption ='(0)'
then label2.caption:='()';

change:=true;

//Redundanz!
for i:=lbfilter.items.Count-1 downto 1
  do begin
  if lbfilter.Items.Strings[i] = lbfilter.Items.Strings[i-1]
  then begin
  showmessage('Redundanz Problem');
  edfilter.SetFocus;
  lbfilter.selected[i-1] := True;
  lbfilter.DeleteSelected;
  //Zeile markieren
  end;

  lbfilter.Selected[i];


 change:=true;
 
 end;  
end;

übrigens geht deins nicht. es werden trotzdem gleiche strings geaddet.