1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function Token(s: string; trenner: char; n: integer = 0): string;
var
  sr: string;
  x: integer;
  idx: integer;
begin
  x := 0;
  sr := s;

  if not (pos(trenner, sr) > 0) then begin // Kein Trenner?
    Result := sr;
    exit;
  end
  else begin
    while (pos(trenner, sr) > 0) do begin
      idx := pos(trenner, sr); // Index des Trenners
      Delete(sr, idx, 1); // Trenner löschen
      if (x=n) then begin // Gewünschtes Element?
        if (pos(trenner, sr) > 0) then // Noch weitere Elemente?
          Result := copy(sr, idx, pos(trenner, sr)-idx) // Das Element holen
        else
          Result := copy(sr, idx, length(sr)-idx); // Restlicher String
        exit; // Prozedur beenden
      end;
      Delete(sr, 1, idx); // Element löschen
      inc(x); // Element erhöhen
    end;
  end;
  Result := sr; // Kein Exit -> ganzen String zuweisen
end;