(Administrator)
Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.889 Beiträge
Delphi 12 Athens
|
AW: Tarifrechner
30. Okt 2011, 21:00
Auf der Konsole wird stardardmäßig der Dezimalpunkt als Dezimaltrenner verwendet (liegt an der amerikanischen Herkunft des BS).
Dein Delphi meckert vermutlich immer noch, oder?
Zur Abprüfung, ob der eingegebene Wert kleiner oder gleich Null ist, bau eine entsprechende IF-Clause und weise dem Result ein entsprechendes Ergebnis zu. Dieses prüfst Du dann in der Procedure Abauf ab und verzweigst ggf. in eine Procedure ausgabe3, die dann den Hinweis enthält, daß Pakete ohne Gewicht oder mit einem negativen Gewicht Schwachfug sind.
|