t_id
866
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
program dumpprops; {$ifdef fpc} {$mode objfpc} {$endif} uses Classes, TypInfo; type TBaseTest = class(TPersistent) private FCaption: String; FNext: Integer; FNext6: Integer; protected public property Caption: String read FCaption write FCaption; published property Next: Integer read FNext write FNext; property Next6: Integer read FNext6 write FNext6; end; TTest = class(TBaseTest) private FNext2: Integer; protected public published property Caption; property Next2: Integer read FNext2 write FNext2; end; var p : PPropInfo; t : TTest; begin t:=TTest.Create; p:=GetPropInfo(t,'Next'); if (p<>nil) and (p^.name=Upcase('Next')) then writeln('Success') else begin writeln('ERROR!'); halt(1); end; end.