paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* modified Patch from #33018 by 隆博. Locale aware datefromstr functions.

Browse Source 
git-svn-id: trunk@38358 -
This commit is contained in:
marco 2018-02-27 10:51:06 +00:00
parent b94d64449a
commit 3afba76bce
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-objpas/src/inc/varutilh.inc
View File

@ -73,6 +73,11 @@ function VariantToWideString(const VargSrc : TVarData) : WideString;
function VariantToAnsiString(const VargSrc : TVarData) : AnsiString; function VariantToAnsiString(const VargSrc : TVarData) : AnsiString;
function VariantToShortString(const VargSrc : TVarData) : ShortString; function VariantToShortString(const VargSrc : TVarData) : ShortString;
{$ifdef MSWINDOWS}
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}
{Debug routines } {Debug routines }
procedure DumpVariant(const VSrc : Variant); procedure DumpVariant(const VSrc : Variant);
procedure DumpVariant(const aName: string; const VSrc : Variant); procedure DumpVariant(const aName: string; const VSrc : Variant);

5
packages/rtl-objpas/src/win/varutils.pp
View File

@ -23,7 +23,7 @@ Unit varutils;
Interface Interface
Uses sysutils; Uses sysutils,Types;
{$i varutilh.inc} {$i varutilh.inc}
@ -69,4 +69,7 @@ function SafeArrayRedim(psa: PVarArray; const NewBound: TVarArrayBound): HRESULT
function SafeArrayUnaccessData(psa: PVarArray): HRESULT; stdcall;external oleaut; function SafeArrayUnaccessData(psa: PVarArray): HRESULT; stdcall;external oleaut;
function SafeArrayUnlock(psa: PVarArray): HRESULT; stdcall;external oleaut; function SafeArrayUnlock(psa: PVarArray): HRESULT; stdcall;external oleaut;
function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: Double): HRESULT; stdcall; external oleaut; overload;
function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: TDateTime): HRESULT; stdcall; external oleaut; overload;
end. end.