also irgendwie will es auch nicht
Delphi-Quellcode:
function Horner(x: integer; coeff: array of Integer): integer;
var
i: Integer;
begin
Result := 0;
for i := Low(coeff) to High(coeff) do
Result := Result * x + coeff[i];
end;
rocedure TForm1.AbleitungClick(Sender: TObject);
var f1,f2,x1,x2:integer;
begin
new_b:=a*2;
new_c:=b;
abl_ausg.Visible:=true;
if new_c=0 then
Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'
else
Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'+'+'+floattostr(new_c);
if a=0 then
begin
Abl_ausg.Caption:='y=f(x)='+floattostr(new_c)
end;
graphbox.Canvas.pen.color :=clRed; //Ändert die Farbe des Stift-Objekts Pen
graphbox.Canvas.pen.width :=1; //Ändert die Strichstärke des Stift-Objekts Pen
x1:= Round(graphbox.width/2)-bereich;
x2:= Round(graphbox.width/2)+bereich;
f1:=Round(graphbox.height/2)+horner(x1,new_b);
f2:=Round(graphbox.height/2)-horner(x2,new_c);
graphbox.canvas.MoveTo(x1,f1);
graphbox.Canvas.LineTo(x2,f2);
end;
aber danke das wenigsten jemand richtung MEIN problem geantwortet hat