t_id
302
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523596650 | 947880 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0050.pp } { can't set a function result in a nested procedure of a function OK 0.99.7 (PM) } function Append : Boolean; procedure DoAppend; begin Append := true; end; begin Append:=False; DoAppend; end; begin If not Append then begin Writeln('TBS0050 fails'); Halt(1); end; end.