1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function strings_trennen(quellstring, trennzeichen: string; teilnummer: Integer): string;
var aktuellTeil: Integer;
begin
    aktuellTeil:=1;
    while aktuellTeil < teilnummer do
        if Pos(trennzeichen,quellstring) > 0 then
            Delete(quellstring,1,Pos(trennzeichen,quellstring)+Length(quellstring)-1)
        else
            Break;
    if aktuellTeil = teilnummer then
        Result:=Copy(quellstring,1,Pos(trennzeichen,quellstring)-1)
    else
        Result:='';
end;