Hmpf ... aber es hat ja schonmal funktioniert ...
Delphi-Quellcode:
procedure zeichne_graph(faktoren : Textend_array; sk : extended);
var xko,yko : extended;
i,exp : integer;
begin
sk := 400/2/sk;
for i := -200 to 200 do
begin
xko := i/sk;
yko := 0;
for exp := high(faktoren) downto 0 do yko := yko + faktoren[exp]*power(xko,exp);
if i=-200 then form1.PaintBox1.Canvas.MoveTo(200+round(xko*sk),200-round(yko*sk))
else form1.PaintBox1.Canvas.LineTo(200+round(xko*sk),200-round(yko*sk));
end;
end;
so hat ichs früher ... der einzige weitere Unterschied, den man hier nich sehn kann is der Aufruf ...
bei der alten version wird diese prozedur vom der hauptprozedur button.click aufgerufen und bei der neuen Version von einer anderen Unterprozedur ...
