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');

[himitsu]

Delphi-Quellcode:

ContainsElement(Container, Element)
ContainsStr(',' + Element + ',', ',' + Container + ',')
MatchStr(Element, Container.Split([',']))
...

bzw.

Delphi-Quellcode:

// Contains
if MatchStr(Element, ContainerArray) then

// Add
if not MatchStr(Element, ContainerArray) then
  ContainerArray := ContainerArray + [Element];  // oder Insert()

// Remove
var i := IndexStr(Element, ContainerArray);
if i >= 0 then
  Delete(ContainerArray, i);

// AsString
S := string.Join(',', ContainerArray);