t_id
1431
t_adddate
2005/01/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949669763 | 1015615 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3499 } { Submitted by "Bart Tierens" on 2005-01-02 } { e-mail: svg@deds.nl } program test; {$mode delphi} uses SysUtils; type TProcedure = procedure of object; Class1 = class public proc: TProcedure; procedure p(const aproc: TProcedure); end; Class2 = class public procedure d(); end; procedure Class1.p(const aproc: TProcedure); begin proc := aproc; end; procedure Class2.d(); begin writeLn('procedure called'); end; var c: Class1; e: Class2; begin c := Class1.create(); e := Class2.create(); c.p(e.d); end.