kopieren: Strg+C?
Geht übrigens auch bei Fehlerdialogen.
Und notfalls hättest du das auch noch abschreiben können ... mit der
dürftigen nichtvorhandenen Fehlerbeschreibung kannst du froh sein, daß es hier so viele Hellseher gibt.
Delphi-Quellcode:
val(edgroese.Text,Groese,fehler);
val(edgewicht.text,Gewicht,fehler);
Wieso wird Fehler nicht ausgewertet? (PS:
StrToInt)
BMI:= Gewicht/Groese*Groese;
x = x
/ Groese * Groese
siehe joachimd ... Klammern setzen oder
Sqr
Und die Fehlermeldung beim "case BMI" sollte dir eigentlich sagen was du falsch machst.
Nja, ich vermute mal, du wolltes da den Wert etwas runden (
Round).