diff --git a/Packages/D2007/X2Utils.dpk b/Packages/D2007/X2Utils.dpk index 065a37c..a568773 100644 --- a/Packages/D2007/X2Utils.dpk +++ b/Packages/D2007/X2Utils.dpk @@ -57,6 +57,7 @@ contains X2UtPersistXML in '..\..\X2UtPersistXML.pas', X2UtPersistXMLBinding in '..\..\X2UtPersistXMLBinding.pas', XMLDataBindingUtils in '..\..\XMLDataBinding\XMLDataBindingUtils.pas', - X2UtCursors in '..\..\X2UtCursors.pas'; + X2UtCursors in '..\..\X2UtCursors.pas', + X2UtDelphiCompatibility in '..\..\X2UtDelphiCompatibility.pas'; end. diff --git a/Packages/D2007/X2Utils.dproj b/Packages/D2007/X2Utils.dproj index 43835ff..8242121 100644 --- a/Packages/D2007/X2Utils.dproj +++ b/Packages/D2007/X2Utils.dproj @@ -6,7 +6,7 @@ Debug AnyCPU DCC32 - ..\..\..\Bpl\D2006\X2Utils2007.bpl + %DELPHIBIN%\X2Utils2007.bpl 7.0 @@ -32,14 +32,6 @@ Package FalseTrueFalseX2UtilsTrueFalseTrue2007TrueFalse1000FalseFalseFalseFalseFalse104312521.0.0.01.0.0.0X2Utils.dpk - - - - - - - - Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components @@ -49,9 +41,13 @@ MainSource + + + + @@ -74,8 +70,5 @@ - - - \ No newline at end of file diff --git a/X2UtDelphiCompatibility.pas b/X2UtDelphiCompatibility.pas index 402c23f..f01040e 100644 --- a/X2UtDelphiCompatibility.pas +++ b/X2UtDelphiCompatibility.pas @@ -13,7 +13,7 @@ implementation {$IF CompilerVersion < 20} uses Windows; -{$ENDIF} +{$IFEND} function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; diff --git a/X2UtNamedFormat.pas b/X2UtNamedFormat.pas index a04d12e..b71a3e0 100644 --- a/X2UtNamedFormat.pas +++ b/X2UtNamedFormat.pas @@ -44,7 +44,9 @@ type implementation uses - Windows; + Windows, + + X2UtDelphiCompatibility; {$I X2UtCompilerVersion.inc}