mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-05 22:38:19 +02:00
LazUtils: Add LazUTF8SysUtils with "deprecated" warnings. The unit was renamed earlier.
git-svn-id: trunk@59436 -
This commit is contained in:
parent
49c0a5e4a2
commit
93fbbb0db7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -3355,6 +3355,7 @@ components/lazutils/lazunicode.pas svneol=native#text/plain
|
|||||||
components/lazutils/lazutf16.pas svneol=native#text/pascal
|
components/lazutils/lazutf16.pas svneol=native#text/pascal
|
||||||
components/lazutils/lazutf8.pas svneol=native#text/pascal
|
components/lazutils/lazutf8.pas svneol=native#text/pascal
|
||||||
components/lazutils/lazutf8classes.pas svneol=native#text/pascal
|
components/lazutils/lazutf8classes.pas svneol=native#text/pascal
|
||||||
|
components/lazutils/lazutf8sysutils.pas svneol=native#text/pascal
|
||||||
components/lazutils/lazutilities.pas svneol=native#text/plain
|
components/lazutils/lazutilities.pas svneol=native#text/plain
|
||||||
components/lazutils/lazutils.lpk svneol=native#text/plain
|
components/lazutils/lazutils.lpk svneol=native#text/plain
|
||||||
components/lazutils/lazutils.pas svneol=native#text/pascal
|
components/lazutils/lazutils.pas svneol=native#text/pascal
|
||||||
|
37
components/lazutils/lazutf8sysutils.pas
Normal file
37
components/lazutils/lazutf8sysutils.pas
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
{
|
||||||
|
*****************************************************************************
|
||||||
|
This file is part of LazUtils.
|
||||||
|
|
||||||
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
||||||
|
for details about the license.
|
||||||
|
*****************************************************************************
|
||||||
|
|
||||||
|
This unit was renamed to LazSysUtils.
|
||||||
|
Now just give "deprecated" warnings. Will be removed later.
|
||||||
|
}
|
||||||
|
unit LazUTF8SysUtils;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
LazSysUtils;
|
||||||
|
|
||||||
|
function NowUTC: TDateTime; deprecated 'Use the function from unit LazSysUtils.';
|
||||||
|
function GetTickCount64: QWord; deprecated 'Use the function from unit LazSysUtils.';
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function NowUTC: TDateTime;
|
||||||
|
begin
|
||||||
|
result := LazSysUtils.NowUTC;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetTickCount64: QWord;
|
||||||
|
begin
|
||||||
|
Result := LazSysUtils.GetTickCount64;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
@ -16,7 +16,7 @@
|
|||||||
<Description Value="Useful units for Lazarus packages."/>
|
<Description Value="Useful units for Lazarus packages."/>
|
||||||
<License Value="Modified LGPL-2"/>
|
<License Value="Modified LGPL-2"/>
|
||||||
<Version Major="1"/>
|
<Version Major="1"/>
|
||||||
<Files Count="101">
|
<Files Count="102">
|
||||||
<Item1>
|
<Item1>
|
||||||
<Filename Value="LazLoggerImpl.inc"/>
|
<Filename Value="LazLoggerImpl.inc"/>
|
||||||
<Type Value="Include"/>
|
<Type Value="Include"/>
|
||||||
@ -421,6 +421,10 @@
|
|||||||
<Filename Value="lazstringutils.pas"/>
|
<Filename Value="lazstringutils.pas"/>
|
||||||
<UnitName Value="LazStringUtils"/>
|
<UnitName Value="LazStringUtils"/>
|
||||||
</Item101>
|
</Item101>
|
||||||
|
<Item102>
|
||||||
|
<Filename Value="lazutf8sysutils.pas"/>
|
||||||
|
<UnitName Value="LazUTF8SysUtils"/>
|
||||||
|
</Item102>
|
||||||
</Files>
|
</Files>
|
||||||
<LazDoc Paths="../../docs/xml/lazutils"/>
|
<LazDoc Paths="../../docs/xml/lazutils"/>
|
||||||
<i18n>
|
<i18n>
|
||||||
|
@ -22,7 +22,7 @@ uses
|
|||||||
TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, TTProfile, TTRASTER,
|
TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, TTProfile, TTRASTER,
|
||||||
TTTables, TTTypes, UTF8Process, HTML2TextRender, Laz_AVL_Tree,
|
TTTables, TTTypes, UTF8Process, HTML2TextRender, Laz_AVL_Tree,
|
||||||
CompWriterPas, LazPasReadUtil, IntegerList, LazVersion, UITypes, GraphType,
|
CompWriterPas, LazPasReadUtil, IntegerList, LazVersion, UITypes, GraphType,
|
||||||
LazTracer, LazStringUtils, LazarusPackageIntf;
|
LazTracer, LazStringUtils, LazUTF8SysUtils, LazarusPackageIntf;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user