Doppelte Werte aus Memo entfernen

[mkinzler]

Delphi-Quellcode:

For i := Memo.Lines.Count -1 downto 2 do
    for j := i-1 downto 1 do
    begin
        if Memo.IndexOf( j) = Memo.IndexOf( i) then Memo.Lines.Delete(i);
    end;

getippt und nicht getestet