:TTypeKind;
i:Integer;
f:Double;
t:Int64;
ATypeInfo:TTypeInfo;
begin
//给定一个属性名称和值，给对应设置
Result:=True;
GetObjAttTypeInfo(obj,AAtt,ATypeInfo);

case ATypeInfo.Kind of
tkInteger:
begin
i:=StrToIntDef(AValue,0);
SetInt64Prop(obj,AAtt,i);
end;
tkFloat :
begin
f:=StrToFloatDef(AValue,0);
SetFloatProp(obj,AAtt,f);
end;
tkInt64:
begin
t:=StrToInt64Def(AValue,0);
SetInt64Prop(obj,AAtt,t);
end;
tkString:SetStrProp(obj,AAtt,AValue);
tkLString:SetStrProp(obj,AAtt,AValue);
tkWString:SetStrProp(obj,AAtt,AValue);
tkVariant:SetVariantProp(obj,AAtt,AValue);
else
Result:=False;
end;

end;