Aus einem TMemo doppelte Strings zählen und dann löschen?

[bigg]

Quick & Slow, so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, f: Integer;
begin
Memo1.Visible := False;

for i := Memo1.Lines.Count -1 downto 0 do
for f := Memo1.Lines.Count -1 downto 0 do
if f <> i then
if Memo1.Lines[f] = Memo1.Lines[i] then
Memo1.Lines.Delete(f);


Memo1.Visible := true;
end;