t_id
460
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266346 | 1015553 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0267.pp } { parameters after methodpointer are wrong OK 0.99.12b (FK) } {$MODE objfpc} program procofobject_arg; type TProcOfObject = procedure of object; TTestClass = class procedure SomeMethod; end; procedure TTestClass.SomeMethod; begin end; // the following proc won't print i2 correctly procedure CrashProc(i1: Integer;method: TProcOfObject; i2: Integer); begin WriteLn('i1 is :', i1); WriteLn('i2 is :', i2); if i2<>456 then Halt(1); end; var instance: TTestClass; begin instance := TTestClass.Create; CrashProc(123, @instance.SomeMethod, 456); end.