Browse Source

little correction

Exilon 7 năm trước cách đây
mục cha
commit
185effda27
1 tập tin đã thay đổi với 3 bổ sung3 xóa
  1. 3 3
      Quick.Chrono.pas

+ 3 - 3
Quick.Chrono.pas

@@ -1,13 +1,13 @@
 { ***************************************************************************
 { ***************************************************************************
 
 
-  Copyright (c) 2015-2017 Kike Pérez
+  Copyright (c) 2015-2018 Kike Pérez
 
 
   Unit        : Quick.Chrono
   Unit        : Quick.Chrono
   Description : Chronometers time elapsed and estimated time to do a task
   Description : Chronometers time elapsed and estimated time to do a task
   Author      : Kike Pérez
   Author      : Kike Pérez
   Version     : 1.2
   Version     : 1.2
   Created     : 27/08/2015
   Created     : 27/08/2015
-  Modified    : 29/09/2017
+  Modified    : 27/02/2018
 
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
 
@@ -183,7 +183,7 @@ end;
 
 
 class function TChronometer.GetUnitTime(TimeValue : TTimeValue; LongFormat : Boolean) : string;
 class function TChronometer.GetUnitTime(TimeValue : TTimeValue; LongFormat : Boolean) : string;
 begin
 begin
-  if LongFormat then Result := UnitLongTime[TimeValue] + '(s)'
+  if LongFormat then Result := ' ' + UnitLongTime[TimeValue] + '(s)'
     else Result := UnitShortTime[TimeValue];
     else Result := UnitShortTime[TimeValue];
 end;
 end;