Integer aus String mit anderen Zeichen herraussuchen

[BenjaminH]

Delphi-Quellcode:

Var PosN:Integer;
    s:String;
Begin
  PosN:=Length(s);
  for i:=0 to 9 do
  Begin
    If Pos(InttoStr(i),s)<PosN Then
      PosN:=Pos(InttoStr(i),s);
  End;
End;

Ungetestet! Geht nur solange keine anderen Zahlen auftauchen, und das ende der Zahl wird auch nicht bestimmt, dazu musst du das aber nur rumdrehen und vom ende an suchen...