From 74cbe82e3faf6ea1e3a462daa89606db68278875 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 24 Mar 2007 22:43:02 +0000
Subject: [PATCH] * Fixed TimeToStr and DateTimeToStr so they are delphi
 compatible

git-svn-id: trunk@6986 -
---
 rtl/objpas/sysutils/dati.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 46960407cb..55cb4e024a 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/rtl/objpas/sysutils/dati.inc
@@ -300,14 +300,14 @@ begin
   result := FormatDateTime('ddddd', Date);
 end ;
 
-{  TimeToStr returns a string representation of Time using ShortTimeFormat   }
+{  TimeToStr returns a string representation of Time using LongTimeFormat   }
 
 function TimeToStr(Time: TDateTime): string;
 begin
-  result := FormatDateTime('t', Time);
+  result := FormatDateTime('tt', Time);
 end ;
 
-{   DateTimeToStr returns a string representation of DateTime using ShortDateTimeFormat   }
+{   DateTimeToStr returns a string representation of DateTime using LongDateTimeFormat   }
 
 function DateTimeToStr(DateTime: TDateTime): string;
 begin
@@ -695,7 +695,7 @@ var
                        if (Hour<>0) or (Minute<>0) or (Second<>0) then
                         begin
                           StoreString(' ');
-                          StoreFormat(TimeReformat(ShortTimeFormat));
+                          StoreFormat(TimeReformat(LongTimeFormat));
                         end;
                      end;
                 end;