Inhalt eines Strings herausschneiden

[Pseudemys Nelsoni]

Delphi-Quellcode:

function Tokenize(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;

aufrufen kannst du das ja mit

Delphi-Quellcode:

while not (Tokenize(DeinString, Zaehlervariable, '#') = '') do
begin
  ShowMessage(Tokenize(DeinString, Zaehlervariable, '#'));
  inc(Zaehlervariable);
end;