Test suite results for test file webtbs/tw2483.pp

Test run data :

Test file "webtbs/tw2483.pp" information:

t_id 961
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015615.

Source:

{$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.

Link to SVN view of webtbs/tw2483.pp source.