String mit Trennzeichen in array aufsplitten

[mkinzler]

Delphi-Quellcode:

var
    slds, slf: TStrings;
    i, j: Integer;
    ...
    slds := TStringList.Create;
    slds.Delimiter := ':';
    slf := TStringList.Create;
    slf.Delimiter := '~';
    slds.DelimitedText := <string>;
    for i := 0 to slds.Count -1 do
    begin
        //Neuer DS
        ...
        slf.DelimitedText := slds[i];
        //Felder
        // slf[0] ist erstes Feld
        ...
    end;

getippt und nicht getestet