unit AC_var;编译报错
function TACVariants.GetVarValue(Name :string) :variant;
var AVarItem :TACVarItem;
begin
{$IFNDEF Delphi6} //出错!!!!!!!!
result := System.Unassigned;
{$ENDIF}
AVarItem := ItemByName(Name);
if AVarItem <> nil then
result := AVarItem.Value;
end;