paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi Code Format: Suppress "deprecated" warnings.

Browse Source
This commit is contained in:
Juha 2022-09-17 19:14:23 +03:00
parent e81675c3a7
commit 4a30435502
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/jcf2/ReadWrite/FileConverter.pas
View File

@ -441,10 +441,11 @@ end;
procedure TFileConverter.Convert;
var
dwStart, dwElapsed: DWord;
dwStart: QWord;
dwElapsed: DWord;
begin
if GetRegSettings.LogTime then
dwStart := GetTickCount
dwStart := GetTickCount64
else
dwStart := 0;
@ -468,7 +469,7 @@ begin
if GetRegSettings.LogTime then
begin
dwElapsed := GetTickCount - dwStart;
dwElapsed := GetTickCount64 - dwStart;
Log.Write('Run took ' + FloatToStr(dwElapsed / 1000) + ' seconds')
end;