Strings zusammenführen und Bereinigen

[Blup]

Eine Lösung die die Reihenfolge der Elemente nicht tauscht und auch mit einzelnen Wörtern klar kommt:

Delphi-Quellcode:

function ContainsElement(const AContainer, AElement: string): Boolean;
begin
  for var lItem in AContainer.Split([',']) do
  begin
    if lItem = AElement then
      Exit(True);
  end;
  Result := False;
end;

procedure AddElement(var AContainer: string; const AElement: string);
begin
  if not ContainsElement(AContainer, AElement) then
    AContainer := AContainer + ',' + AElement;
end;

procedure AddElementList(var AContainer: string; const AList: string);
begin
  for var lItem in AList.Split([',']) do
    AddElement(AContainer, lItem);
end;

var s1 := '1,2,4';
const s2 = 'Test,3,2,4,5';

AddElementList(s1, s2);
Assert(s1 = '1,2,4,Test,3,5');