Zahlen aus String extrahieren

[p80286]

Delphi-Quellcode:

begin
  t:='';
  flag:=false;
  setLength(Result, 6); a := -1;
  for i:= 1 to length(kopStr) do
   begin
    if isZahl(kopstr[i])and (a <= high(Result))then
    begin
      if not(flag) {and (a < high(Result)) }then inc(a);
      t:=t+kopStr[i];
      result[a]:=strtoint(t);
      flag:=true;
     end else
     begin
       flag:=false;
       t:='';
     end;
   end;

Tip am Rande mit [F7]/[F8] eine Kleinigkeit.

Gruß
K-H