t_id
1183
t_adddate
2003/11/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456445666 | 937022 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2492 } { Submitted by "Mattias Gaertner" on 2003-05-15 } { e-mail: mattias@freepascal.org } program buggy; {$ifdef fpc}{$mode objfpc}{$H+}{$endif} uses Classes, SysUtils, TypInfo; type TMyClassA = class; TMyClassB = class(TComponent) private FClassA: TMyClassA; published property ClassA: TMyClassA read FClassA write FClassA; end; TMyClassA = class(TComponent) end; var MyClassA: TMyClassA; begin MyClassA:=TMyClassA.Create(nil); writeln('PropertyCount=', GetTypeData(MyClassA.ClassInfo)^.PropCount); if GetTypeData(MyClassA.ClassInfo)^.PropCount<>2 then halt(1); end.