Diese funktion schneller machen?

[negaH]

Delphi-Quellcode:

function ExtractToken(const Text: String; Index: Integer; const Seperator: Char = ' '): String;
var
  S,D: PChar;
begin
  S := PChar(Text);
  while (S^ <> #0) and (Index > 0) do
  begin
    if S^ = Separator then Dec(Index);
    Inc(S);

// falls mehrere Seperatoren nacheinander möglich sind, ohne Index zu ändern dann so
//
//    if S^ = Seperator then
//    begin
//      Dec(Index);
//      repeat
//        Inc(S);
//      until S^ <> Seperator;
//    end else Inc(S);
  end;
  D := S;
  while (D^ <> #0) and (D^ <> Separator) do 
    Inc(D);
  SetString(Result, S, D - S);
end;

Gruß Hagen