t_id
1109
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
444129034 | 935038 | True | False | Success, compilation failed |
Record count: 1
{ %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.