اجرای یک پروسیجر

[parhizkar2000]

من یک قطعه برنامه رو که 5 بار می بایستی هر دفعه اجرا بشه رو تو یک پروسیجر نوشتم.
ولی هر بار که اون رو صدا میزنم خطا میگیره قسمت ساده شده اون رو زیر آوردم .لطفا در این مورد راهنمایی بفرمایید

procedure TForm1.M1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
num:string;
begin
if key=13 then
begin
num:=m1.Text+m2.Text+m3.Text+m4.Text;
procedure form1.line1(num) ;
end;
end;
*****************************
تعریف تابع هم بصورت زیر است
{$R *.dfm}
procedure Tform1.line1(number : string);
begin
if length(trim(number))=4 then
begin
m5.Visible:=true;
m6.Visible:=true;
m7.Visible:=true;
m8.Visible:=true;
form1.ActiveControl:=m5;
m1.Enabled:=false;
m2.Enabled:=false;
m3.Enabled:=false;
m4.Enabled:=false;
end;
end;

[hotice]

سلام
خطا رو ننوشتی!
موفق باشی. :)

[Panje Tala]

با سلام
نحوه صدا کردن Procedure در برنامه مشکل دارد. کافی است بجای خط هشتم برنامه بنویسی:


Line1(num);


در صدا کردن یک زیر برنامه دیگر نباید از کلمه Procedure استفاده نمود.

[arshia_]

کاملا درسته فقط کافی است که نام پرو :wink: سیجر رو بنویسی