Erste Position einer Zahl in einem String?

[DeddyH]

Aus dem Kopf:

Delphi-Quellcode:

function FirstNumberPos(const s: string): integer;
var
  i: integer;
begin
  Result := 0;
  i := 1;
  while (i <= Length(s)) and (Result = 0) do
    begin
      if s[i] in ['0'..'9'] then
        Result := i
      else 
        inc(i);
    end;
end;