Registriert seit: 20. Okt 2004
Ort: Mittelfranken
665 Beiträge
Turbo Delphi für Win32
|
AW: Taschenrechner : ' ' ist kein Gleitkommawert
26. Jul 2011, 11:54
Hi.
Ich geh mal stark davon aus, dass das Problem in der Zeile hier liegen dürfte:
zwischenergebnis := strtofloat(edit1.text);
Hier versuchst du den Inhalt von edit1 in einen Float zu wandeln, wenn aber nichts im Edit steht, dann knallts. Das passiert, weil deine Variable "zwischenergebnis" nach zweimaligem Drücken von "+" wohl 0 ist und die obige Zeile daher erreicht wird. Entweder du benutzt Methoden wie TryStrToFloat, oder du baust einen try-except-Block außenrum, oder du fragst vorher ab, ob sich der Inhalt vom Edit-Feld in einen Float wandeln lässt.
Gruß
|