irgend wie hab ich nen totales brett vorm kopf
ich kreig immer die fehlermeldung:
"list index out of bounds (xx)"
hir die procedure
Delphi-Quellcode:
procedure TForm1.double_delClick(Sender: TObject);
var i,k:integer;
begin
if listbox1.Count>0 then
for i:=0 to listbox1.Count-2 do
for k:=i+1 to listbox1.count-1 do
if listbox1.Items.Strings[i]=listbox1.Items.Strings[k]
then listbox1.Items.Delete(k);
end;
das problem liegt irgendwo bei k, zumindest meldet sich da der compiler
wenn ich aber mir die werte und strings in einer showmessage() anzeigen lasse, dann kommt keine fehlermeldung und alles klappt wie es soll (hatte da natürlich den vergleich herausgenommen)