funktion zeichen

[Namenloser]

Deine Formatierung ist durcheinander.

Delphi-Quellcode:

for i:=-100 to 150 do
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

Da gehörert ein Begin...End drum. Aber was macht das begin mitten im Quelltext?
Auf andere Fehler hab ichs jetzt nicht überprüft.

Du solltest deine Quelltexte ordnetlich einrücken und formatieren.