Also jetzt nochmal von vorne. Das hier
Delphi-Quellcode:
IdealHigh:= StrToFloat(EHeight.Text) - 100;
IdealHigh:= IdealHigh * 0.97;
IdealLow:= StrToFloat(EHeight.Text) - 100;
IdealLow:= IdealLow * 0.83;
bringt dir als Idealgewicht für 150cm 750kg? Das kann doch nicht stimmen. Das, was du daraus gemacht hast, dürfte am Ergebnis der Rechnung nichts ändern. Sicher, daß in deinem Code nicht sonst ein kleiner Fehler war, den du beim Posten hier nicht gemacht hast?
Anders kann ich es mir wirklich nicht erklären... Denn wie gesagt, bei mir hat der Code, den ich hier rauskopiert hab, auf Anhieb funktioniert.
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;