Ziffern aus String filtern

[delphis spassbremse]

Zerlegen hiermit:

Delphi-Quellcode:

function TForm1.GetToken(aString, SepChar: string; TokenNum: Byte): string;
var
  Token: string;  
  StrLen: Byte;  
  Num: Byte;  
  EndofToken: Byte;  
begin  
  StrLen     := Length(aString);  
  Num        := 1;  
  EndofToken := StrLen;  
  while ((Num <= TokenNum) and (EndofToken <> 0)) do  
  begin  
    EndofToken := Pos(SepChar, aString);  
    if EndofToken <> 0 then  
    begin  
      Token := Copy(aString, 1, EndofToken - 1); 
      Delete(aString, 1, EndofToken);  
      Inc(Num);  
    end  
    else  
      Token := aString;  
  end;  
  if Num >= TokenNum then  
    Result := Token  
  else
    Result := '';  
end;

Benutzen hiermit:

geteilterstring := (Trim(GetToken(stringdergeteiltwerdensoll,'#',1))); // # = trennzeichen 1 = welcher teil vom string ausgelesen werden soll