Nochmals hallo zusammen, ich moechte doppelte Eintraege in einer Listbox loeschen, das geht mit einer Schleife.
Aber die Schleife muss vom Anfang bis Ende der Listbox laufen, ich hab da schon was Code aber der faengt am Ende an und loescht nur 1 doppelter Eintrag obwohl es mehrere gibt.
Delphi-Quellcode:
procedure TMainForm.Button2Click(Sender: TObject);
Var i:integer;
S:
string;
begin
with listbox1
do
begin
i := items.count - 1;
//Listbox vom Ende durchgehen
while i >= 0
do
begin
S := items[i];
while items.indexof(S) <> i
do
begin
items.Delete(items.indexof(S));
dec(i);
end;
dec(i);
//Nächstes item
end;
end;
end;
Zitat:
Beilspiel:
Affe6
Affe5
Affe4
Affe5 <--- muestte weg
Affe3
Affe4 <--- muesste weg
Affe6 <--- muestte weg
Kann man so etwas realisieren ?