t_id
1251
t_adddate
2004/02/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565143154 | 954639 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2956 } { Submitted by "Marco (Gory Bugs Department)" on 2004-02-08 } { e-mail: } {$mode Delphi} Uses uw2953; type localclassfields = class(aclasswithfields) end; classwithmethod = class procedure xx; end; procedure classwithmethod.xx; var ll : aclasswithfields; begin writeln(localclassfields(ll).field1); // goes ok. with localclassfields(ll) do // typecast. writeln(field1); end; begin end.