Strings zusammenführen und Bereinigen

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