1
{ Source provided for Free Pascal Bug Report 2492 }
2
{ Submitted by "Mattias Gaertner" on 2003-05-15 }
3
{ e-mail: mattias@freepascal.org }
6
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
9
Classes, SysUtils, TypInfo;
14
TMyClassB = class(TComponent)
18
property ClassA: TMyClassA read FClassA write FClassA;
21
TMyClassA = class(TComponent)
27
MyClassA:=TMyClassA.Create(nil);
28
writeln('PropertyCount=',
29
GetTypeData(MyClassA.ClassInfo)^.PropCount);
30
if GetTypeData(MyClassA.ClassInfo)^.PropCount<>2 then