t_id
507
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022766777 | 1027388 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0334.pp } { } {$ifdef fpc}{$mode objfpc}{$endif} type tvarrec=record vpointer : pointer; end; var r : tvarrec; b : boolean; function Next: TVarRec; begin next:=r; end; begin r.vpointer:=@b; { The result of next is loaded and a value is assigned } with Next do boolean(VPointer^) := true; if not b then writeln('Error with assigning to function result'); end.