t_id
961
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
484271511 | 941524 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode delphi}{$endif} type TUpdateProc = procedure( Self : TObject; n : Integer ) of object; TCl = class FOnUpdate : TUpdateProc; procedure HandleUpdate(obj:tobject;n:integer); procedure p; end; procedure tcl.HandleUpdate(obj:tobject;n:integer); begin writeln(n); end; procedure tcl.p; begin FOnUpdate := HandleUpdate; FOnUpdate( Self, 1 ); end; var c : TCl; begin c:=TCl.create; c.p; end.