Zahlen aus String extrahieren

[Amateurprofi]

Mal auf die Schnelle:

Delphi-Quellcode:

type
   TNumbers=array of integer;

PROCEDURE ReadNumbers(const s:string; var numbers:TNumbers);
var i,j,len:integer;
begin
   numbers:=nil;
   i:=1;
   len:=Length(s);
   while (i<=len) do begin
      while (i<=len) and not (s[i] in ['0'..'9']) do inc(i); // auf erste Ziffer
      if i>len then exit;
      j:=i;
      while (i<=len) and (s[i] in ['0'..'9']) do inc(i); // hinter letzte Ziffer
      SetLength(numbers,Length(numbers)+1);
      numbers[High(numbers)]:=StrToInt(Copy(s,j,i-j));
   end;
end;