Changeset 2 for trunk/linetime.lpr

Timestamp:

Jul 22, 2015, 4:28:36 PM (9 years ago)

Author:

chronos

Message:

Show new line time when new characters are printed on that line.

File:

• trunk/linetime.lpr (modified) (4 diffs)

trunk/linetime.lpr

@@ -22 +22 @@
     StartTime: TDateTime;
     NewLine: Boolean;
+    ShowTime: Boolean;
     LastLineTime: TDateTime;
     procedure PrintOutput(Output: string);
@@ -63 +64 @@
 
   NewLine := True;
+  ShowTime := True;
   FirstLine := True;
   StartTime := Now;
@@ -91 +93 @@
   LineTime: TDateTime;
 begin
-  if (Length(Output) > 0) and NewLine then begin
+  if NewLine then begin
+    if FormatCSV then begin
+      if not FirstLine then WriteLn('"');
+    end else begin
+      if not FirstLine then WriteLn('');
+    end;
+    NewLine := False;
+    FirstLine := False;
+  end;
+  if (Length(Output) > 0) and ShowTime then begin
     LineTime := Now - StartTime;
     if FormatCSV then begin
-      if not FirstLine then WriteLn('"');
       Write(FloatToStrF(LineTime / OneSecond, ffFixed, 10, 2) + ',' +
         FloatToStrF((LineTime - LastLineTime) / OneSecond, ffFixed, 10, 2) + ',"');
     end else begin
-      if not FirstLine then WriteLn('');
       Write(#$1b'[0;32m' + FloatToStrF(LineTime / OneSecond, ffFixed, 10, 2) + #$1b'[0m ');
     end;
-    NewLine := False;
-    FirstLine := False;
+    ShowTime := False;
     LastLineTime := LineTime;
   end;
@@ -122 +130 @@
       Delete(Buffer, 1, P + Length(LineEnding) - 1);
       NewLine := True;
+      ShowTime := True;
     end;
   until P = 0;