t_id
779
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
440174367 | 934406 | True | False | Successfully run |
Record count: 1
{$mode objfpc} program change; type aclasstype = class prop : integer; end; procedure trychange (const aclass : aclasstype); begin aclass.prop := 5; end; var aclass : aclasstype; begin aclass := AClassType.Create; try trychange (aclass) finally aclass.free; end; end.