Zitat von
peterpan1:
Delphi-Quellcode:
L1Edit.Text:=FloatToStr(l1);
L2Edit.Text:=FloatToStr(l2);
Das könnte übrigens auch zu lustigen Ergebnissen führen, weil es in keinem if-drin steht. Also aus dem ersten if werden dann die Anweisungen:
Delphi-Quellcode:
L1Edit.Text:='';
L2Edit.Text:='';
überschrieben und es kommen "zufällige" Werte da rein.
Im zweiten Fall wird immerhin l2Edit noch recht interessant sein. Aber das sollte mit deinem Problem nichts zu tun haben.
Das ist mein aktuelles Programm und ich komme nicht drauf, was an der Zeile
Zitat von
peterpan1:
if ((p/2)*(p/2)-q)<0 then
falsch sein soll...
Seh' ich auch nichts falsches dran... Kommt an dieser Stelle die
Exception??
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!