hab noch eine schönere variante gemacht:
danke für deinen tipp
Delphi-Quellcode:
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');
lbfilter.selected[i] := True;
lbfilter.DeleteSelected;
das problem ist aber noch das der sobald die doppelte zahl ganz unten in der tstringgrid steht, eine fehlermeldung kommt. ist die doppelte zahl weiter oben, geht das ohne probleme.
hast du einen lösungsvorschlag?