Hier hast du so eine umständliche Lösung, die deinen Ansprüchen genügen sollte:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
s: string;
ts: TStringList;
begin
ts := TStringList.Create;
try
Caption := 'Starte';
for i := 0 to Memo1.Lines.Count - 1 do
ts.Add(Memo1.Lines.Strings[i]);
if ts.Count > 0 then begin
i := 0;
repeat
s := ts.Strings[i];
inc(i);
for j := ts.Count - 1 downto i do begin
if ts.Strings[j] = s then begin
ts.Delete(j);
end;
end;
until i >= ts.Count-1;
end;
Memo1.Lines.Clear;
for i := 0 to ts.Count - 1 do
Memo1.Lines.Add(ts.Strings[i]);
Caption := 'Fertig';
finally
ts.Free;
end;
end;
Ansonsten kannst du das auch mal intensiver selbst probieren, war jetzt ne Arbeit von 2 Minuten.