Zahlen aus String Filtern

[Cyf]

Ich hätte ja einfach vorgeschlagen mir ein dynamisches Array of Integer zu bauen und den Text (z.B. mit Pos) einfach immer bis zum nächsten Leerzeichen zu durchlaufen und zu schauen, ob da eine gültige Zahl steht.
Aber regular expressions kommen natürlich auf das selbe raus.

[inherited]

Delphi-Quellcode:

var sl: TStringList; i, k: Integer;
[...]
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := 'Du hast 800 Euro und 20 Fische im Karton';
    for i := 0 to sl.count - 1 do
    begin
      if TryStrToInt(sl[i], k) then
      begin
        //Ich bin eine Zahl
      end else begin
        //Ich bin keine Zahl
      end;
    end;
  finally
    sl.Free;
  end;
end;

[reyka]

@inherited

Super danke werd ich gleich mal ausprobieren.