|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: Doppelte wörter aus memo Löschen
15. Okt 2009, 23:33
Hallo,
die Möglichkeit finde ich auch immer schön:
Delphi-Quellcode:
for z := Pred(Memo.Lines.Count) downto 1 do
if Memo.Lines.IndexOf(Memo.Lines[z]) <> z then
Memo.Lines.Delete(z);
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|