delphi7函数求解

Question

var  
LocFontSize:Integer;
LocFont:TFont;
LocCmp:TComponent;If PropertyExists(LocCmp,'FONT') Then
Begin
  LocFont:=TFont(GetObjectProperty(LocCmp,'FONT'));
  LocFontSize := Round(LocFontRate*LocFont.Size);
  LocFont.Size:=LocFontSize;
End;undeclared identifier :'GetObjectProperty'
求教：函数GetObjectProperty的内容该怎么写？是系统自带的吗？如何取LocCmp的font属性

Answer 1

楼主用的 Delphi 版本是?

Answer 2

这个函数不是系统的，具体你可以看看这个
http://www.664876.com/article/Delphi/55.html

Answer 3

function GetObjectProperty(
     const AObject   : TObject;
     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;