EInvalidOp -- oO

[RobinHood]

wahhh ... das funktioniert auch nich -_-

Code:

procedure zeichne_graph(faktoren,exponenten : Textend_array; sk : extended; start,ende : integer);
var xko,yko : extended;
    i,i2 : integer;
begin
  sk := 400.0/2.0/sk;
  for i := start to ende do
    begin
      xko := i/sk;
      yko := 0;
      for i2 := 0 to high(faktoren) do
             yko := yko + faktoren[i2]*power(xko,exponenten[i2]);

      if (i=start) 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;

übergabeparameter von sk ist beim prozeduraufruf 10

so siehts aus ... manche methoden gingen ... aber er is dann in zeile 8 (xko := i/sk) wieder gescheitert mit dem selben problem

RobinHood