Doppelte Einträge in Array filtern

[marabu]

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