procedure TForm1.BtKDClick(Sender: TObject);
VAR x,x0 : REAL;
begin
x := StrToFloat(EdcaNull.text);
x0 := p.Nullstelle(x);
IF x0=Schrott THEN EdNull2.text:=floattostr(x) ELSE
EdNull2.text:=floattostr(x0)
end;
/*
Also ich bin mir nicht sicher ob das irgendwie klappt, vor allem weil TPolynom noch irgendwie
gefrickelt werden müsste damit es die Funktion Nullstelle() überhaupt gibt...Leider weiß ich nicht
mehr wie man das in Delphi macht :-( Ich hoffe das hilft dir trotzdem weiter :-)
*/