X
xxwdc
Unregistered / Unconfirmed
GUEST, unregistred user!
Var
vLookupGroup:Viriant;
vLookupGroup:=ADOQueryOperator.Lookup('操作员',Frm_Main.sOperator,'权限组');
IF Not [blue]VarIsNull(vLookupGroup)[/blue] Then
Frm_Main.sRightGroup:=Trim(VarToStr(vLookupGroup))
Else
Frm_Main.sRightGroup:='公共组';
VarIsNull()函数在Delphi5中已编译通过,现在换成Delphi7编译时,为何会出错?
请高手指点... ...
vLookupGroup:Viriant;
vLookupGroup:=ADOQueryOperator.Lookup('操作员',Frm_Main.sOperator,'权限组');
IF Not [blue]VarIsNull(vLookupGroup)[/blue] Then
Frm_Main.sRightGroup:=Trim(VarToStr(vLookupGroup))
Else
Frm_Main.sRightGroup:='公共组';
VarIsNull()函数在Delphi5中已编译通过,现在换成Delphi7编译时,为何会出错?
请高手指点... ...