Hi,
sorry aber ich muss mal ganz kurz eine andere Frage stellen, warum machst du es eigentlich so umständlich?
Delphi-Quellcode:
function TfmAppPanel.GetTokenList(sCommand, sSeparator : string) : TStringList;
begin
Result := TStringList.Create;
Result.Delimiter := Seperator;
Result.DelimitedText := sCommand;
end;
Das sollte eigentlich genau das gleiche tun und mit Result.DelimitedText bekommst du auch den original Text zurück.
Ansonsten ist es natürlich komplett von dem was man machen möchte abhängig, wie ein StringTokenizer am sinnvollsten aufgebaut werden sollte. Ich persönlich sehe allerdings wenig Sinn darin den String ungetrennt zurück zu geben (wie es ja nach Änderungswunsch sein würde?).
Gruß Der Unwissende