Delphi-Quellcode:
for i:=laenge-1 downto 0 do
for b:=0 to i-1 do
begin
if liste[i]=liste[b] then
liste[b]:='';
end;
Mit dem Code werden aus einem Array doppelte Zeilen gelöscht. Ist auch recht einfach auf ein Memo anzuwenden, allerdings sind Schleifen die ein Memo Feld durchlaufen immer recht langsam.