Bestimmte Zahlen aus einem String auslesen

[himitsu]

Wenn die Hausnummer immer als Erstes steht und sich sonst nix Schlimmes davor befindet,
dann vielleicht so (incl. anhängender Buchstaben)

Delphi-Quellcode:

function GetFirstNumber(s : String) : String;
var
  i : Integer;
begin
  s := Trim(s);
  i := 0;
  while (i < Length(s)) and (s[i + 1] in ['0'..'9', 'a'..'z', 'A'..'Z']) do
    inc(i);
  Result := Copy(s, 1, i);
end;

Falls keine Leerzeichen und Co. davor vorkommen können, dann kann die Zeile mit dem Trim entfallen.