Поддержка DateTime<->Double

MyLog.pas

@@ -8,6 +8,7 @@ Uses
   System.SyncObjs,
   System.Diagnostics,
   System.Classes,
+  System.StrUtils,
   System.TypInfo;
 
 
@@ -106,12 +107,13 @@ Procedure WriteMyLog(const aArgs :array of const; const aHeader :String = ''); o
 var
   vArgument :Boolean;
   vStr      :String;
-
+  vDateTimeMode :Boolean;
   procedure locIncStr(const aAddStr :String);
   begin
-    if vArgument then
-      AddStr(vStr, aAddStr)
-    else
+    if vArgument then begin
+      AddStr(vStr, aAddStr);
+      vDateTimeMode := AnsiContainsText(aAddStr,'date') or AnsiContainsText(aAddStr,'time');
+    end else
       AddStr(vStr, '=' + aAddStr + LogElementsSeparator);
   end;
 
@@ -148,7 +150,10 @@ begin
 
           vtInteger       : locIncStr(IntToStr(VInteger));
           vtInt64         : locIncStr(IntToStr(VInt64^));
-          vtExtended      : locIncStr(FloatToStr(VExtended^, fFS));
+          vtExtended      : if (not vArgument) and vDateTimeMode then
+                              locIncStr(DateTimeToStr(VExtended^, fFS))
+                            else
+                              locIncStr(FloatToStr(VExtended^, fFS));
           vtBoolean       : locIncStr(BoolToStr(VBoolean, true));
           vtCurrency      : locIncStr(CurrToStr(VCurrency^, fFS));
           vtObject        : locIncStr(locObjectToStr(VObject));