Question

delphi 对象根据属性的名字 去属性的值

比如
ta= class
a:integer;
b:integer;
end;

假设a 为 Ta对象，先在实现一个方法：比如 传入的参数为 ‘a’就取出a.a的值，如果传入参数为'b' 就取出a.b的值
比如类似java的反射技术

Answer 1

试试 SetPropValue(Component,strPropName,vValue);

即你可以这样写：SetPropValue(a,a,1)

好像需要引用typeinfo吧，记不清了。详细研究一下delphi的RTTI机制，挺难的，不是新手能看懂的

Answer 2

function returnvalue(const astr: string):integer
begin
if astr='a' then
returnvalue=a.a;
if astr='b' then
returnvalue=a.b;
end;