delphi7函数求解
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属性



[解决办法]
楼主用的 Delphi 版本是?
[解决办法]
这个函数不是系统的，具体你可以看看这个
http://www.664876.com/article/Delphi/55.html
[解决办法]
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;