Merge branch 'develop'

Author: César Cardoso

Samples/Demo01/C4DConsoleDemo01.dpr

@@ -9,33 +9,33 @@ uses
   C4D.Console;
 
 var
- FDig: String;
+  FDig: String;
 
 begin
-   ReportMemoryLeaksOnShutdown := True;
-   C4DConsole
-     .Prefix('C4DConsoleDemo01')
-     .Version('1.0.0')
-     .Port(0)
-     .WriteInitialSummary('#CODE4DELPHI SERVIDOR INICIADO');
-
-   FDig := '';
-   while(FDig <> C4DConsole.CommandFinish)do
-   begin
-      ReadLn(FDig);
-      C4DConsole.ProcessDigitated(FDig);
-   end;
-
-   C4DConsole
-     .WriteStr('Finalizando')
-     .BreachLines
-     .WriteStr('  Passo 1/3')
-     .BreachLines
-     .WriteStr('  Passo 2/3')
-     .BreachLines
-     .WriteStr('  Passo 3/3')
-     .BreachLines;
-
-   C4DConsole.WriteStr('ENCERANDO').WriteLineSeparation('#', 80);
-   Sleep(3000);
+  ReportMemoryLeaksOnShutdown := True;
+  C4DConsole
+    .Prefix('C4DConsoleDemo01')
+    .Version('1.0.0')
+    .Port(0)
+    .WriteInitialSummary('#CODE4DELPHI SERVER STARTED');
+
+  FDig := '';
+  while(FDig <> C4DConsole.CommandFinish)do
+  begin
+    ReadLn(FDig);
+    C4DConsole.ProcessDigitated(FDig);
+  end;
+
+  C4DConsole
+    .WriteStr('Finishing ...')
+    .BreachLines
+    .WriteStr('  Step 1/3')
+    .BreachLines
+    .WriteStr('  Step 2/3')
+    .BreachLines
+    .WriteStr('  Step 3/3')
+    .BreachLines;
+
+  C4DConsole.WriteStr('Finishing').WriteLineSeparation('#', 80);
+  Sleep(3000);
 end.

Src/C4D.Console.Consts.pas

@@ -6,12 +6,12 @@ interface
   System.SysUtils;
 
 type
-  TC4DConsoleConsts= class
+  TC4DConsoleConsts = class
   public const
-    CMD_DISABLE_LOG    = '-l';
-    CMD_ENABLE_LOG     = '+l';
-    CMD_RESUME         = '-r';
-    CMD_HELP           = '-h';
+    CMD_DISABLE_LOG = '-l';
+    CMD_ENABLE_LOG = '+l';
+    CMD_RESUME = '-r';
+    CMD_HELP = '-h';
     CMD_FINISH_DEFAULT = '\q';
   end;
 

Src/C4D.Console.Utils.pas

@@ -11,30 +11,31 @@   TC4DConsoleUtils = class
   private
   public
     class function DhCompilation: TDateTime;
-    class function TimeInRunning(const ADhIni: TDateTime): String;
+    class function TimeInRunning(const ADhIni: TDateTime): string;
   end;
 
 implementation
 
 class function TC4DConsoleUtils.DhCompilation: TDateTime;
 begin
-   FileAge(ParamStr(0), Result);
+  FileAge(ParamStr(0), Result);
 end;
 
-class function TC4DConsoleUtils.TimeInRunning(const ADhIni: TDateTime): String;
+class function TC4DConsoleUtils.TimeInRunning(const ADhIni: TDateTime): string;
 var
- LDaysDif: Double;
+  LDaysDif: Double;
 begin
-   Result := '';
-   try
-     if(ADhIni > 0)then
-     begin
-        LDaysDif := DaySpan(Now, ADhIni);
-        Result   := IntToStr(Trunc(LDaysDif)) + ' dias, ' + FormatDateTime('h" horas, "n" minutos e "s" segundos"', LDaysDif);
-     end;
-   except on E: exception do
-     Result := 'Não pode ser pego. ' + E.Message;
-   end;
+  Result := '';
+  try
+    if(ADhIni > 0)then
+    begin
+      LDaysDif := DaySpan(Now, ADhIni);
+      Result := IntToStr(Trunc(LDaysDif)) + ' days, ' + FormatDateTime('h" hours, "n" minutes e "s" seconds"', LDaysDif);
+    end;
+  except
+    on E: exception do
+      Result := 'TimeInRunning: Cant be caught. ' + E.Message;
+  end;
 end;
 
 end.