关于自定义函数和过程的问题??????

Question

我在写程序的时候,有两个BitBtn按钮,都是执行以下的操作,
   if aaa = 1 then
     frm1.close
   else if aaa = 0 then
     frm2.Label1.caption := 'Szk_2006';
 
   我想把以上代码写成一个函数或者过程.应该怎么写.
   在对应的Unit.pas中怎么声明这个函数或者过程.
   急..............
   在线等待.................................................

Answer 1

你双击BitBtn按钮,把上面的程序添加到光标处剩下的事情不用你处理,你看看就行了.

Answer 2

要是想做成过程来调用的话就这样做:
 
第一步,声明过程
procedure BtnProc;第二步,实现过程
procedure frm1.BtnProc;
begin
   if aaa = 1 then
     frm1.close
   else if aaa = 0 then
     frm2.Label1.caption := 'Szk_2006';
end;第三步,双击BitBtn按钮,写上BtnProc就可以了

Answer 3

方法1，定义为一般过程
procedure procName(aaa: aaaType);
begin
  if aaa = 1 then
     frm1.close
   else if aaa = 0 then
     frm2.Label1.caption := 'Szk_2006';
end;方法2，定义为类方法
TForm1 = class(TForm)
//...
  procedure procName(aaa: aaaType);
end;TForm1.procName(aaa: aaaType);
begin
  //....
end;

Answer 4

procedure mypro;  //可以在PRIVATE里声明。
begin
  if aaa = 1 then
    frm1.close
  else if aaa = 0 then
    frm2.Label1.caption := 'Szk_2006';
end;