t_id
866
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022850011 | 1027398 | True | False | Successfully run |
Record count: 1
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.