煞费苦心的意思:请教:Delphi中过程的声明和调用

来源:百度文库 编辑:神马品牌网 时间:2024/05/12 14:44:10
像在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.