paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 05:17:24 +01: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; procedure TFileConverter.Convert;
var var
dwStart, dwElapsed: DWord; dwStart: QWord;
dwElapsed: DWord;
begin begin
if GetRegSettings.LogTime then if GetRegSettings.LogTime then
dwStart := GetTickCount dwStart := GetTickCount64
else else
dwStart := 0; dwStart := 0;
@ -468,7 +469,7 @@ begin
if GetRegSettings.LogTime then if GetRegSettings.LogTime then
begin begin
dwElapsed := GetTickCount - dwStart; dwElapsed := GetTickCount64 - dwStart;
Log.Write('Run took ' + FloatToStr(dwElapsed / 1000) + ' seconds') Log.Write('Run took ' + FloatToStr(dwElapsed / 1000) + ' seconds')
end; end;