funktion zeichen

[Valle]

Irgendwie hast du begin und end falsch gesetzt. Müsste das nicht eher so aussehen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i,xn,yn, fx, fy:integer;                   //i=x,
begin
xn:=image1.Canvas.PenPos.X;                    // Koordinatenursrung bei (100,100)
yn:=image1.Canvas.PenPos.Y;
image1.Canvas.Pen.Color:=clRed;

                                          // f(i)=y
for i:=-100 to 150 do begin
  fx:=i;                                         // x wert setzen
  fy:=round(i*5);                                  // y wert setzen (funktion i*5, zum testen andere funktion eintragen)

  image1.Canvas.moveTo(xn,yn);                   // mitte auf koord. ursprung setzen
  Image1.Canvas.LineTo(xn+fx,yn-fy);            // linie zeichnen
end;