Erste Position einer Zahl in einem String?

[codipodi]

Hallo zusammen,
vermutlich habe ich erneut wieder ein triviales Problem, komme allerdings auch mit der Suchfunktion auf keine Lösung.

Ich habe eine Textdatei und möchte die erste Position einer normalen Zahl (also 0,1,2,3,4,5,6,7,8 oder 9) finden.

Gibt es eine einfache Möglichkeit die ich übersehe? Mir würde jetzt nur einfalle nach allen jeweils neu zu suchen und am Ende nachzuschauen welche Position die kleinste ist.

Gibt es nicht sowas wie pos([0..9],string) ?

Danke!

LG,
Christian

[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;

[codipodi]

funktioniert, danke! Besser geht es nicht.

LG,
Christian

[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;

[ASM]

Da muss offensichtlich signifikant nachgebessert werden.
Denn wo sind evt. vorhandene Vorzeichen, "+" und "-", berücksichtigt ?

[Sir Rufo]

Zitat:

Zitat von ASM (Beitrag 1165005)

Da muss offensichtlich signifikant nachgebessert werden.
Denn wo sind evt. vorhandene Vorzeichen, "+" und "-", berücksichtigt ?

Der TE meinte wohl erste Ziffer und nicht erste Zahl ;)

[Popov]

Zuverlässigerweise ist das Auffinden des letzten Zeichens aus einer Menge leichter als beim ersten Zeichen. LastDelimiter macht es vor. Und leicht geklaut kann man daraus eine FirstDelimiter Funktion machen.

Delphi-Quellcode:

...

Edit: Kommando zurück, da ist ein kleiner Fehler. Muß jetzt aber weg, korrigiere ihn später. Sorry.

Edit2: So wie es aussieht klappt es mit leicht geklaut nicht, d. h. man muss doch schon Anpassungen vornehmen. Man kann also aus der LastDelimiter nicht ohne weiteres FirstDelimiter machen, also kann man auch gleich neu programmieren. Und da die obere Funktion fehlerhaft war, habe ich sie vorsichtshalber erstmal entfernt.