String nach Trennzeichen aufteilen

[Pseudemys Nelsoni]

hi,

also ich habe es immer so gemacht:

Delphi-Quellcode:

function strn(s: string; index: integer; sep: char): string;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  Try
    Repeat
      if Pos(sep, s) <> 0 then
      begin
        sl.Add(Copy(s, 1, Pos(sep, s)-1));
        Delete(s, 1, Pos(sep, s));
      end
      else
      begin
        sl.Add(s);
        s := '';
      end;
    until s = '';
    if index <= sl.Count then
    Result := sl.Strings[index-1]
    else Result := '';
  finally
    sl.Free;
  end;
end;

und dann mit:

Delphi-Quellcode:

procedure irgendwas;
var
  s: string;
begin
  s := strn(irgendeinstring, 1, ',')  // das 2te is der 2te teil nach dem 1ten seperator des strings..das 3te der seperator selbst
end;