t_id
462
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525662398 | 948221 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0271.pp } { abstract methods can't be assigned to methodpointers OK 0.99.13 (??) } {$mode fpc} type tproc = procedure; procedure proc1; begin end; var _copyscan : tproc; procedure setproc; begin _copyscan := @proc1; end; procedure testproc; begin if not (_copyscan=@proc1) then begin Writeln(' Problem procvar equality'); Halt(1); end else Writeln(' No problem with procedure equality'); end; begin setproc; testproc; end.