t_id
372
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-786691883 | 733385 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0146.pp } { no sizeof() for var arrays and the size is pushed incorrect OK 0.99.7 (PFV) } procedure myfunction(var t : array of char); begin writeln(sizeof(t)); { should be 51 } if sizeof(t)<>51 then halt(1); end; var mycharstring : array[0..50] of char; begin myfunction(mycharstring); if sizeof(mycharstring)<>51 then halt(1); end.