#33 XE compiling error dbf.pas

[Alexey Gavrilov]

dbf.pas has error when compiling with Delphi XE
[DCC Error] dbf.pas(358): E2037 Declaration of 'DataEvent' differs from previous declaration

dbf.pas/TDbf.DataEvent
procedure DataEvent(Event: TDataEvent; Info: Longint); virtual;

XE db.pas/TDataSet:
procedure DataEvent(Event: TDataEvent; Info: Longint); virtual;

May be conditional compilation defines correct for XE2+?

fc C:_dev.cmp\tdbf701\src__history\dbf.pas.~1~ dbf.pas > fc_dbf.pas
Сравнение файлов C:_DEV.CMP\TDBF701\SRC__HISTORY\dbf.pas.~1~ и DBF.PAS
** C:_DEV.CMP\TDBF701\SRC__HISTORY\dbf.pas.~1~
{$ifdef DELPHI_XE}
procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;
{$else} DBF.PAS
{$ifdef DELPHI_XE}
// procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;
procedure DataEvent(Event: TDataEvent; Info: Longint); virtual;
{$else}***

** C:_DEV.CMP\TDBF701\SRC__HISTORY\dbf.pas.~1~
{$ifdef DELPHI_XE}
procedure TDbf.DataEvent(Event: TDataEvent; Info: NativeInt);
{$else} DBF.PAS
{$ifdef DELPHI_XE}
//procedure TDbf.DataEvent(Event: TDataEvent; Info: NativeInt);
procedure TDbf.DataEvent(Event: TDataEvent; Info: Longint);
{$else}***

[Paul Baker]

Does this happen with latest snapshot, currently revision 803, from https://sourceforge.net/p/tdbf/code/HEAD/tree/?