Question

delphi怎样在一个procedure中调用另一个procedure？

例如： 已知过程

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
type
ss=array[1..500]of char ;
var
str1:^ss;
receivedata:array of double;
num:array[0..3]of integer;

begin

.....

end;

怎样在procedure TForm1.Button1Click(Sender: TObject);中调用这个过程？

Answer 1

procedure就是一个过程嘛，过程其实就是没有返回值的函数，调用方法跟函数调用一样啊。
比如。
procedure TFMain.Button1Click(Sender: TObject);
var buff:string;
begin
buff:='hello';
Comm1ReceiveData(Sender,@buff,Length(buff));
end;

Answer 2

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
这个是串口接收到数据事件，一般是在这里面写对收到的数据处理语句

Answer 3

begin
Button1Click(button1);
...........
end;

追问

这个我会，在button中调用TForm1.Comm1ReceiveData，怎么写？