PropInfo := GetPropInfo(Obj,'DataSet');
if (PropInfo<>nil) and (PropInfo.PropType=tkClass) then
begin
obj := PropInfo.GetProc;
PropInfo := GetPropInfo(obj,'Active');
if PropInfo<>nil then
....
end
if (PropInfo<>nil) and (PropInfo.PropType=tkClass) then
begin
obj := PropInfo.GetProc;
PropInfo := GetPropInfo(obj,'Active');
if PropInfo<>nil then
....
end
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————