t_id
1333
t_adddate
2004/08/18
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022767491 | 1027386 | True | False | Successfully run |
Record count: 1
{$mode delphi} type TProc = procedure of object; TTest = class public proc: TProc; constructor Create; procedure foo; procedure bar; end; constructor TTest.Create; begin inherited; proc := nil; end; procedure TTest.foo; begin writeln('foo'); end; procedure TTest.bar; begin if @proc <> nil then proc; end; var t: TTest; begin t := TTest.Create; t.proc := t.foo; t.bar; t.Free; end.