So ich habe den Code jetzt mal geändert nach dem ihr so super schnell Tipps gegeben hattet.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var a, b,f,x,xn,xe,xo,yn,ye,yo,i: integer;
var ywerte, xwerte : array[0..20] of integer;
var s:STRING;
begin
s:=edit1.Text;
xe:=160;
xo:=150;
ye:=140;
yo:=150;
x:=-5;
repeat
f:=strtoint(s);
xn:=x*(xe-xo)+xo;
xwerte[x+6]:=xn;
yn:=f*(ye-yo)+yo;
ywerte[x+6]:=yn;
inc(x);
until x=5;
image1.Canvas.MoveTo(xwerte[1],ywerte[1]);
for i:=2 to 10 do begin
image1.Canvas.LineTo(xwerte[i],ywerte[i]);
end;
end;
Ich habe das ganze jetzt mal mit der Funktion 2*x versucht aufzurufen. Dabei bekomme ich folgende Fehlermeldung s. Attachment.
Woran liegt das jetzt bzw. was kann ich machen damit es funktioniert?
Mit freundlichen Früßen