Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
4. Sep 2010
:thumb: Correctamente, zumal "decimal := 0;" auch in der Schleife bei jedem erkannten nicht-numersichen Symbol ausgeführt ist.
Delphi-Narr, Du hast Dir den Spass genommen, das alleine rauszufinden. So geht das aber nunmal beim Programmieren: Man muss selbst Dreck fressen und rumheulen, bis man von selbst auf die Lösung kommt. Nur so wird man wirklich gut.
Nächstes mal probierst Du selbst...
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
4. Sep 2010
....
'0'..'9': begin
if decimal>0 then begin
number := number + Iord(c) - 48)/decimal;
decimal := decimal*10;
else
number := 10 * number + ord(c) - 48;
code := isNum;
end;
'.': if decimal>0 then
