t_id
372
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ 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.