t_id
527
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022792678 | 1027389 | True | False | Successfully run |
Record count: 1
{$mode objfpc} type tobject2 = class constructor create; function rname : string; procedure wname(const s : string); property name : string read rname write wname; end; tclass2 = class of tobject2; var o2 : tobject2; c2 : tclass2; constructor tobject2.create; begin inherited create; end; procedure tobject2.wname(const s : string); begin end; function tobject2.rname : string; begin end; begin o2:=tobject2.create; o2.name:='1234'; writeln(o2.name); o2.destroy; c2:=tobject2; o2:=c2.create; o2.destroy; end.