F
fatalexception
Unregistered / Unconfirmed
GUEST, unregistred user!
一个函数,打算用窗体做参数,并且必须是变量参(不能是值参):
///////////////////////////////////////////////////
function F(var TheForm: TForm):Boolean;
begin
Do something....
TheForm:=XXXXXXXX;
Result:=True;
end;
/////////////////////////////////////////////////////
调用时,实参可以是任何从TForm派生出来的Form,例如:
////////////////////////////////////////////////////
Program Login;
Type
TfrmLogin=Class of TForm;
Var
frmLogin:TfrmLogin;
Begin
F(frmLogin);
end.
//////////////////////////////////////////////
怎样才能让变量参接受不同类型但有派生关系的实参呢?(不用指针)
谢谢!
///////////////////////////////////////////////////
function F(var TheForm: TForm):Boolean;
begin
Do something....
TheForm:=XXXXXXXX;
Result:=True;
end;
/////////////////////////////////////////////////////
调用时,实参可以是任何从TForm派生出来的Form,例如:
////////////////////////////////////////////////////
Program Login;
Type
TfrmLogin=Class of TForm;
Var
frmLogin:TfrmLogin;
Begin
F(frmLogin);
end.
//////////////////////////////////////////////
怎样才能让变量参接受不同类型但有派生关系的实参呢?(不用指针)
谢谢!