t_id
1333
t_adddate
2004/08/18
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.