古龙关于酒:请教:Delphi中过程的声明和调用

来源:百度文库 编辑:高校问答 时间:2024/05/06 07:34:21
像在VB中,声明一个TempCourse过程,然后用Call语句调用,请问在Delphi中如何实现?

Private Sub Command1_Click()
Call TempCourse
End Sub

Private Sub TempCourse()

End Sub

Procedure Command1_click;
Begin
TempCourse;
End;

第二种调用方法
var
P: Pointer;
begin
P := @TempCourse;
asm
pushad;
call p;
popad;
end;
end.