Erste Position einer Zahl in einem String?

[mleyen]

Delphi-Quellcode:

function FirstNumberPos(const s: string): Integer;
begin
  for Result := 1 to Length(s) do
    if s[Result] in ['0'..'9'] then
      Exit;
  Result := 0;
end;