Problem bei der pq Formel

[Benny152]

Das Thema haben wir noch nicht behandelt, und da es jetzt gerade um die Vorbereitung auf eine Arbeit geht, schieb ich das Thema lieber erstmal zurück
Ich hab aber noch eine ziemlich blöde Frage ^^
Die Hilfedatei von Delphi funktioniert leider nicht, die Antwort ist wahrscheinlich genauso simpel wie die auf 1+1

Hier mein Problem: Die eine Lösung rechnet er problemlos aus, aber wenn es um die zweite geht, entstehen immer irgendwelche Fehler
Wie sage ich delphi das er beide machen soll?
Mit einem einfachen end hat es nicht geklappt...
then f.text:=('Nicht möglich da Wurzel kleiner 0')
else
l:=IntToStr(-p div 2+d)
l1:=IntToStr(-p div 2-d)

[Wolfgang Mix]

Siehe Post #6

[Benny152]

Danke, ich schau es mir an

Edit : PQ Skript fertig
Danke für deine/eure Hilfe!
Nach der vollbrachten Arbeit beschäftige ich mich mal mit deiner Version