Außerdem ist mir noch ein kleiner Logikfehler aufgefallen:
Zitat von
pete_knightde:
Delphi-Quellcode:
//Berechnungsteil
x1 := -1*p / 2 + sqrt(p^2/4-q);
x2 := -1*p / 2 - sqrt(p^2/4-q);
if sqrt((p^2/4)-q)<0
then begin
EdKommentar.text:='Keine Lösung';
end
else if sqrt((p^2/4)-q)=0
then begin
EdKommentar.text:='Nur Eine Lösung';
end else begin
EdKommentar.text:='Zwei verschiedene Lösungen';
Du berechnest erst die Werte und checkst dann ab, ob diese Berechnung möglich ist. Das wird wahrscheinlich dein Fehler sein! Check erst, ob die Berechnung möglich ist und Rechne dann innerhalb des
Delphi-Quellcode:
if (...) then
begin
(...)
end;
die Werte aus.
//Edit1: Da hab ich doch glatt selber die Delphi-Tags vergessen
