F
finalfantasy
Unregistered / Unconfirmed
GUEST, unregistred user!
export an function
function getpass(var name:String;var password:String;ower:TComponent):Boolean;far;export;
Begin
passform:=TpassForm.Create(ower);
if passform.showmodal=Ok then
Begin
getpass:=true;
name:=passform.edit1.text;
pass:=passform.edit2.text;
end
else
getpass:=false;
End;
编译时无任何错误,调用时出错!
function getpass(var name:String;var password:String;ower:TComponent):Boolean;far;export;
Begin
passform:=TpassForm.Create(ower);
if passform.showmodal=Ok then
Begin
getpass:=true;
name:=passform.edit1.text;
pass:=passform.edit2.text;
end
else
getpass:=false;
End;
编译时无任何错误,调用时出错!