mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-30 22:02:40 +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/lazutf8.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/lazutils.lpk svneol=native#text/plain
|
||||
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."/>
|
||||
<License Value="Modified LGPL-2"/>
|
||||
<Version Major="1"/>
|
||||
<Files Count="101">
|
||||
<Files Count="102">
|
||||
<Item1>
|
||||
<Filename Value="LazLoggerImpl.inc"/>
|
||||
<Type Value="Include"/>
|
||||
@ -421,6 +421,10 @@
|
||||
<Filename Value="lazstringutils.pas"/>
|
||||
<UnitName Value="LazStringUtils"/>
|
||||
</Item101>
|
||||
<Item102>
|
||||
<Filename Value="lazutf8sysutils.pas"/>
|
||||
<UnitName Value="LazUTF8SysUtils"/>
|
||||
</Item102>
|
||||
</Files>
|
||||
<LazDoc Paths="../../docs/xml/lazutils"/>
|
||||
<i18n>
|
||||
|
@ -22,7 +22,7 @@ uses
|
||||
TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, TTProfile, TTRASTER,
|
||||
TTTables, TTTypes, UTF8Process, HTML2TextRender, Laz_AVL_Tree,
|
||||
CompWriterPas, LazPasReadUtil, IntegerList, LazVersion, UITypes, GraphType,
|
||||
LazTracer, LazStringUtils, LazarusPackageIntf;
|
||||
LazTracer, LazStringUtils, LazUTF8SysUtils, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user