Hallo Chris,
du willst doch nicht wirklich die Schleife verlassen, wenn das aktuelle Zeichen eine 0..9 ist, oder
?
Propiers mal mit:
Delphi-Quellcode:
if Not (aTmp[i] in ['0'..'9']) then
Break;
Außerdem sollte die Schleife nicht bis 0, sondern nur bis 1 laufen.