请问如何写一个含有过程参数的过程？谢谢！！

Question

麻烦举个例子。。

Answer 1

public 
   procedure proname (a:string;var b:string);
 按 shift+ctrl+c
 写如函数体
..........................
   procedure form1.proname(a:string;var b:string);
    begin
...............
end;
    a 为输入参数；
    b 为输出参数；

Answer 2

我想写一个
class procedure stransaction(一个过程参数);
的类

Answer 3

type
  TMyProcedure = procedure(Sender: TObject) of object;//其中的参数你自己设置
  TForm1 = class(TForm)    
  private
    procedure CallMyProcedure(MyProcedure: TMyProcedure);
    procedure OneOfMyProcedure(Sender: TObject);//这就是要用到的过程参数    
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  CallMyProcedure(OneOfMyProcedure);
end;procedure TForm1.CallMyProcedure(MyProcedure: TMyProcedure);
begin
  //
end;procedure TForm1.OneOfMyProcedure(Sender: TObject);
begin
//
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————