t_id
564
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950447633 | 1015745 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$MODE DELPHI} type aClass=class private aa:longint; procedure bb(index:integer;value:longint); public property cc:longint index 1 read aa write bb; end; procedure AClass.bb(index:integer;value:longint); begin aa:=value; end; var C:aClass; begin C:=aClass.Create; C.cc:=1; writeln(C.cc); end.