opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Display tenths of a second through FormatTimeNumber. Used by query running status, table tools dialog and some more.

Browse Source
This commit is contained in:
Ansgar Becker
2018-03-18 21:17:33 +01:00
parent de0446b3b3
commit 83d6b02d7c
4 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
source/apphelpers.pas
View File

@ -282,7 +282,7 @@ type
function RegExprGetMatch(Expression: String; var Input: String; ReturnMatchNum: Integer; DeleteFromSource: Boolean): String;
function FormatByteNumber( Bytes: Int64; Decimals: Byte = 1 ): String; Overload;
function FormatByteNumber( Bytes: String; Decimals: Byte = 1 ): String; Overload;
function FormatTimeNumber(Seconds: Cardinal; DisplaySeconds: Boolean): String;
function FormatTimeNumber(Seconds: Double; DisplaySeconds: Boolean): String;
function GetTempDir: String;
procedure SaveUnicodeFile(Filename: String; Text: String);
procedure OpenTextFile(const Filename: String; out Stream: TFileStream; var Encoding: TEncoding);
@ -1078,11 +1078,12 @@ end;
@param Cardinal Number of seconds
@result String 12:34:56
}
function FormatTimeNumber(Seconds: Cardinal; DisplaySeconds: Boolean): String;
function FormatTimeNumber(Seconds: Double; DisplaySeconds: Boolean): String;
var
d, h, m, s : Integer;
d, h, m, s, ts: Integer;
begin
s := Seconds;
s := Trunc(Seconds);
ts := Trunc((Seconds - s) * 10); // ts = tenth of a second
d := s div (60*60*24);
s := s mod (60*60*24);
h := s div (60*60);
@ -1090,15 +1091,21 @@ begin
m := s div 60;
s := s mod 60;
if d > 0 then begin
if DisplaySeconds then
Result := Format('%d '+_('days')+', %.2d:%.2d:%.2d', [d, h, m, s])
else
if DisplaySeconds then begin
Result := Format('%d '+_('days')+', %.2d:%.2d:%.2d', [d, h, m, s]);
Result := Result + '.' + IntToStr(ts);
end
else begin
Result := Format('%d '+_('days')+', %.2d:%.2d h', [d, h, m]);
end;
end else begin
if DisplaySeconds then
Result := Format('%.2d:%.2d:%.2d', [h, m, s])
else
Result := Format('%.2d:%.2d h', [h, m])
if DisplaySeconds then begin
Result := Format('%.2d:%.2d:%.2d', [h, m, s]);
Result := Result + '.' + IntToStr(ts);
end
else begin
Result := Format('%.2d:%.2d h', [h, m]);
end;
end;
end;