Hallo erstmal
Also ich bin so ziemlicher Delphianfäger und hab ein Problem mit einer Funktion.
Ich habe 2 Eingabefelder:
EZahl, EHochzahl ( dazwischen steht: x^)
und einen Hinzufügbutton:
Delphi-Quelltext
Die Funktion:
Delphi-Quelltext
1:
2:
3:
4:
5:
| function f(x: extended): extended;
begin
result:= result;
result:= result + StrToFloat(z)*Power(x,StrToFloat(hz));
end; |
Jetzt soll jedesmal wenn ich auf den Hinzufügbutton klick zur untenstehenden Funktion die Zahlen übergeben werden und gegebenenfals, wenn schoneinmal der button benutzt wurde die Zahlen addiert werden.
Am Ende muss dann f(x) gezeichnet werden mit folgendem code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.Kurve_Zeichnen;
var i,j: integer;
x,y: real;
begin
with ISchaubild do
begin
i:=0;
x:=(i-Ursprung.i)/Einheit;
y:=f(x);
j:=-round(y*Einheit)+Ursprung.j;
Canvas.MoveTo(i,j);
for i:=1 to width do
begin
Canvas.Pen.Color:=clblack;
x:=(i-Ursprung.i)/Einheit;
y:=f(x);
j:=-round(y*Einheit)+Ursprung.j;
Canvas.LineTo(i,j);
end;
end ;
end; |
Es tut schon alles außer des mit der Funktion.
Wie kann ich das bewerkstelligen?
Hab schon vieles ausprobiert aber mir fehlen einfach die erforderlichen Kentnisse. Wäre nett wenn mir jemand helfen könnte!
Ps: Hoffe ihr könnt aus meiner Beschreibung das Problem erkennen:).
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt
