Hallöchen...
ich möchte gern einen Funktionsgraph zeichnen. Dabei soll der Benutzer der Funktion selber eingeben können. Jetzt besteht das Problem, dass die eingebene Funktionsvorschrift ein String ist. Da diese nicht in Rechenoperationen verarbeitet werden können wandla ich die Eingabe in ein Integer um. Allerdings funktioniert dies leider auch nicht
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:=strtoint(edit1.Text);
xe:=160;
xo:=150;
ye:=140;
yo:=150;
x:=-5;
repeat
f:=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;
... möchte ich das jetzt anwenden, kommt eine Fehlermeldung.
Hat jemand eine Lösung für mein Problem?
MFG
[edit=Matze][delphi]-Tag geschlossen. MfG, Matze[/edit]