Doppelte Einträge entfernen?

[yankee]

Zitat von smart:

Wie kann man aus einem TMemo doppelte Einträge ?

Da fehlt das löschen in deinem Satz.
Wie meinst du das? In einer Memo steht üblichwerweise nur Text und meinst du da doppelte Wörter? Naja, wahrscheinlich icht. Ich gehe mal davon aus, dass du eine Memo dafür "mißbrauchst" wofür es eigentlich TListBox gibt. Du hast nämlich in jeder Zeile ein WOrt und du willst die doppelten finden.
Dann stellt sich noch die Frage, ob die Liste sortiert ist. Das würde die Sache nämlcih vereinfachen. Anosnsten einfach alles mit allem vergleichen:

Delphi-Quellcode:

for i :=Memo.Lines.Count -1 downto 1 do for i2 :=Memo.Lines.Count -1 downto 1 do
begin
    if (i<>i2) and (Memo.Lines.Strings[i] =Memo.Lines.Strings[i2]) then Memo.Lines.Delete(i2);
end;

Also so ungefähr. Musst du mal probieren... Oder noch ein paar Infos posten. Ich fürchte mein Code ist nicht so ganz richtig, aber der Grundgedanke hilft dir villeicht...