t_id
386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523831564 | 947918 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0171.pp } { missing typecasting in constant expression solved for pointers OK 0.99.11 (PM) } type pstring=^string; const drivestr:string='c:'; pdrivestr:pstring=pstring(@drivestr); begin if pdrivestr^<>'c:' then begin Writeln('Error in typecast of const'); Halt(1); end; end.