Z
zylnet
Unregistered / Unconfirmed
GUEST, unregistred user!
函数已经声明
在编译cxdata6.dpk的时候出现undeclared identigier:'findvardata'
function FindVarData(const V: Variant): PVarData;
function VarIsDate(const AValue: Variant): Boolean;
function VarTypeIsDate(const AVarType: TVarType): Boolean;
begin
Result := (AVarType = varDate)
{$IFNDEF NONDB}{$IFDEF DELPHI6} or (AVarType = VarSQLTimeStamp){$ENDIF}{$ENDIF};
end;
begin
{$IFDEF CLR}
Result := VarTypeIsDate(VarType(AValue));
{$ELSE}
Result := VarTypeIsDate(FindVarData(AValue)^.VType);
{$ENDIF}
end;
在编译cxdata6.dpk的时候出现undeclared identigier:'findvardata'
function FindVarData(const V: Variant): PVarData;
function VarIsDate(const AValue: Variant): Boolean;
function VarTypeIsDate(const AVarType: TVarType): Boolean;
begin
Result := (AVarType = varDate)
{$IFNDEF NONDB}{$IFDEF DELPHI6} or (AVarType = VarSQLTimeStamp){$ENDIF}{$ENDIF};
end;
begin
{$IFDEF CLR}
Result := VarTypeIsDate(VarType(AValue));
{$ELSE}
Result := VarTypeIsDate(FindVarData(AValue)^.VType);
{$ENDIF}
end;