From dee64510b6c550f5f2271f2fbf69515412639c86 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sat, 15 Oct 2016 09:17:33 +0200
Subject: [PATCH] Added wrapper for TDateTime

---
 X2Log.Intf.pas | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/X2Log.Intf.pas b/X2Log.Intf.pas
index 17b3700..739932b 100644
--- a/X2Log.Intf.pas
+++ b/X2Log.Intf.pas
@@ -98,6 +98,51 @@ type
   end;
 
 
+
+type
+  IX2LogDateTime = interface
+    ['{F0E6196B-C7E7-46C9-8764-D457AB957534}']
+    function GetValue: TDateTime;
+
+    property Value: TDateTime read GetValue;
+  end;
+
+  { Use this wrapper when passing a TDateTime to one of the structured logging
+    methods, otherwise Delphi will pass it as a floating point value. }
+  function DT(AValue: TDateTime): IX2LogDateTime;
+
+
 implementation
+type
+  TX2LogDateTime = class(TInterfacedObject, IX2LogDateTime)
+  private
+    FValue: TDateTime;
+  public
+    constructor Create(AValue: TDateTime);
+
+    function GetValue: TDateTime;
+  end;
+
+
+
+function DT(AValue: TDateTime): IX2LogDateTime;
+begin
+  Result := TX2LogDateTime.Create(AValue);
+end;
+
+
+{ TX2LogDateTime }
+constructor TX2LogDateTime.Create(AValue: TDateTime);
+begin
+  inherited Create;
+
+  FValue := AValue;
+end;
+
+
+function TX2LogDateTime.GetValue: TDateTime;
+begin
+  Result := FValue;
+end;
 
 end.