我在运行Delphi7时出现了错误有哪位能帮忙解决这个问题吗?下面是系统出错提示:
project gzxt_project1.exe raised exception class EVariant TypeCastError with message'Could not connert variant of type (Null) into type(String)'.Process stopped.Use step or Run to continue!
希望大家帮帮忙,先谢了!急呀
project gzxt_project1.exe raised exception class EVariant TypeCastError with message'Could not connert variant of type (Null) into type(String)'.Process stopped.Use step or Run to continue!
希望大家帮帮忙,先谢了!急呀
好好查查代码,类型转换错误呀!!
function GetValue(value: variant): variant;
begin
if value=null then result := Unassigned
else result := value;
end;