Hallo,
ich brauche einmal eure Hilfe:
Ich habe derzeit mehrere Anweisungen hinter einem Button "Zeichnen"!
Diese möchte ich nun auslagern in eine Procedure "ZeichnenLassen", welche ich dann nur noch aufrufe bei Klicken des Buttons "Zeichnen"!
Ich habe derzeit nun im Programmkopf folgendes definiert:
Delphi-Quelltext
1:
2:
| procedure ZeichnenClick(Sender: TObject);
procedure ZeichnenLassen (Sender: TObject); |
ZeichnenLassen wird dann deklariert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure THauptfenster.ZeichnenLassen(Sender: TObject);
var i: integer;
a,b,c,d: real;
begin
a:=StrToFloat (Edit1.Text);
b:=StrToFloat (Edit2.Text);
c:=StrToFloat (Edit3.Text);
d:=StrToFloat (Edit4.Text);
i:=0;
series1.clear;
while i<=14000 do
begin
x:=(i-7000)/1000;
y:=(a*x*x*x+b*x*x+c*x+d);
series1.addxy(x,y);
i:=i+1;
end;
label4.Visible:=true;
edit5.Visible:=true;
e:=false;
end; |
Der Abruf erfolgt nun bei Klick des Button:
Delphi-Quelltext
1:
2:
3:
4:
| procedure THauptfenster.ZeichnenClick(Sender: TObject);
begin
ZeichnenLassen();
end; |
Doch irgendetwas mache ich hier falsch, denn es kommt folgende Fehlermeldung:
Nicht genügend wirkliche Parameter?!
Vielen Dank für eure Hilfe schon einmal
Moderiert von 
raziel: Quote- durch Delphi-Tags ersetzt
