t_id
414
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
487780573 | 942099 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0212.pp } { problem with properties OK 0.99.11 (PFV) } program proptest; {$mode objfpc} type TMyRec = record Int: Integer; Str: String; end; TMyClass = class private FMyRec: TMyRec; public property AnInt: Integer read FMyRec.Int; property AStr: String read FMyRec.Str; end; begin end.