GetObjectProperty

function GetObjectProperty( アラド戦記 RMT
const AObject : TObject; アイオン WIKI
const APropName : string リアル
):TObject;
var
PropInfo:PPropInfo;
begin
Result := nil;
PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
if Assigned(PropInfo) and
(PropInfo^.PropType^.Kind = tkClass) then
Result := GetObjectProp(AObject,PropInfo);
end;