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

Posted 2023-05-08

例如： 已知过程

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);中调用这个过程？

procedure就是一个过程嘛，过程其实就是没有返回值的函数，调用方法跟函数调用一样啊。
比如。
procedure TFMain.Button1Click(Sender: TObject);
var buff:string;
begin
buff:='hello';
Comm1ReceiveData(Sender,@buff,Length(buff));
end; 参考技术A procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
这个是串口接收到数据事件，一般是在这里面写对收到的数据处理语句 参考技术B begin
Button1Click(button1);
...........
end;追问

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

delphi怎样从一个界面跳转到另一界面

在界面中，互相声明对面的单元
例如在窗体1中声明，窗体2的单元
uses unit2;
在窗体2中，声明窗体1的单元。
uses unit1;
然后，窗体一的按钮代码：
form2.show;
在窗体二的按钮代码：
form1.show;
2个窗体界面就可以互相切换了 参考技术A 现在 第一个 界面 use 里面 引入 第二个 界面 的unit 让后 触发事件后 用form2.showmodel； 就可以了本回答被提问者采纳 参考技术B 代码吧 直接 "另一界面.show"