Bestimmte Zahlen aus einem String auslesen

[Fridolin Walther]

Delphi-Quellcode:

function GetFirstNumber(s : string) : string;
var
  i : Integer;
begin
  for i := 1 to Length(s) do
    if s[i] in ['0' .. '9']
      then Result := Result + s[i]
      else
        if Result <> '' then Break;
end;

Das wäre meine Lösung . Ist etwas anders als die von Deddy. Ist relativ einfach und etwas kürzer als Deddys Methode .