Doppelte Zeilen aus einem TMemo löschen

[Klaus01]

Hallo,

so könnte es auch ohne Schleifen gehen:

Delphi-Quellcode:

var
  sl: TStringList;

sl := TStringlist.create;
sl.sorted := true;
sl.duplicates := dupIgnore;
sl.assign(Memo1.lines);
Memo1.lines.assign(sl);
sl.free;

Grüße
Klaus