Test suite results for test file webtbf/tw1949.pp

Test run data :

Test file "webtbf/tw1949.pp" information:

t_id 1109
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948250.

Source:

{ %fail }

{$mode objfpc}{$H+}

type
  TMyProc = procedure;

  TMyClassA = class
  private
    FOnMyEvent: TMyProc;
  public
    property OnMyEvent: TMyProc read FOnMyEvent write FOnMyEvent;
  end;

  TMyClassB = class
  public
    MyClassA: TMyClassA;
    procedure DoIt;
    constructor Create;
  end;

procedure TMyClassB.DoIt;
begin

end;

constructor TMyClassB.Create;
begin
  MyClassA:=TMyClassA.Create;
  MyClassA.OnMyEvent:=@DoIt; // DoIt is 'procedure of object' -> incompatible !
end;

begin
end.

Link to SVN view of webtbf/tw1949.pp source.