t_id
739
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$inline on} procedure test(v:boolean); procedure notice(s:string);inline; begin writeln(s); end; begin if v then notice('this string vanishes.'); writeln('"test" main body executed.'); end; begin writeln('testing with True...'); test(true); writeln; writeln('testing with False...'); test(false); end.