Hallo Dominik,
bedenke, dass für jeden ShortString der maximal benötigte Speicherplatz reserviert wird - AnsiStrings sind da viel ökonomischer.
Delphi-Quellcode:
procedure ExtractUniqueStrings(list, result: TStrings);
var
temp: TStringList;
begin
temp := TStringList.Create;
temp.Sorted := True;
temp.Duplicates := dupIgnore;
try
temp.Assign(list);
result.Assign(temp);
finally
temp.Free;
end;
end;
Grüße vom marabu