String

[ichbins]

such einfach nach dem Leerzeichen und kopier dann den Text ab dem Leerzeichen. Oder alternativ: Füge alle gefundenen Zifferzeichen zusammen.

erste Methode:

Delphi-Quellcode:

var
  s:string;
begin
  for i:=length(s) downto i do
    if s[i]=' ' then
      break;
   zahl:=copy(s,i,length(s)-i);
end;

zweite Methode:

Delphi-Quellcode:

var
  s:string;
const
  ziffern='0123456789';
begin
  zahl:='';
  for i:=1 to length(s) do 
    if pos(s[i],ziffern)>0 then
      zahl:=zahl+s[i];
end;