Browse Source

Use USE_WINDOWS_OLE_FUNCTIONS macro to avoid build failure for win16 OS target

Pierre Muller 2 months ago
parent
commit
bfa16c0b32
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-objpas/src/inc/varutilh.inc

+ 1 - 1
packages/rtl-objpas/src/inc/varutilh.inc

@@ -73,7 +73,7 @@ function VariantToWideString(const VargSrc : TVarData) : WideString;
 function VariantToAnsiString(const VargSrc : TVarData) : AnsiString;
 function VariantToShortString(const VargSrc : TVarData) : ShortString;
 
-{$ifdef MSWINDOWS}
+{$ifdef USE_WINDOWS_OLE_FUNCTIONS}
 function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: Double): HRESULT; stdcall; overload;
 function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: TDateTime): HRESULT; stdcall; overload;
 {$endif}