String.Split Methode Delimiter mehrmals vorhanden

[sx2008]

Zitat von Dejan Vu:

... und meine preisverdächtigen und zum Patent angemeldeten Code.

Das sieht aber schlecht für Dich aus weil folgende Funktion ist schon Open Source

Delphi-Quellcode:

function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;