Mein Problem: TStringlist

[grips-net]

So mal auf die Schnelle, könnte man folgende Funktion verwenden um dein Problem zu lösen:

Delphi-Quellcode:

function decodeString(sString, sSeperator : string) : TStringList;
var
    iI, iMax : integer;
    sStringAdd : string;
begin
    result := TStringList.Create;
    result.Clear;
    iMax   := length(sString);
    sStringAdd := '';
    for iI := 1 to iMax do
    begin
      if sString[iI] <> sSeperator then
        sStringAdd := sStringAdd + sString[iI]
      else
      begin
        result.Add(sStringAdd);
        sStringAdd := '';
      end;
    end;
    if sStringAdd <> '' then
      result.Add(sStringAdd);
end;

Grüße

Michael