t_id
574
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-839915994 | 724380 | True | False | Successfully run |
Record count: 1
{$mode objfpc} type tc = class function test(var c: tc): boolean; left,right: tc; end; testfunc = function(var c: tc):boolean of object; function foreach(var c: tc; p: testfunc): boolean; begin if not assigned(c) then exit; end; function tc.test(var c: tc): boolean; begin { if you use @test, the compiler tries to get the address of the } { function result instead of the address of the method (JM) } result := foreach(c.left,@self.test); result := foreach(c.right,@self.test) or result; end; begin end.