paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 00:46:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed TimeToStr and DateTimeToStr so they are delphi compatible

Browse Source 
git-svn-id: trunk@6986 -
This commit is contained in:
michael 2007-03-24 22:43:02 +00:00
parent dc4cb7170c
commit 74cbe82e3f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/dati.inc
View File

@ -300,14 +300,14 @@ begin
result := FormatDateTime('ddddd', Date); result := FormatDateTime('ddddd', Date);
end ; end ;
{ TimeToStr returns a string representation of Time using ShortTimeFormat } { TimeToStr returns a string representation of Time using LongTimeFormat }
function TimeToStr(Time: TDateTime): string; function TimeToStr(Time: TDateTime): string;
begin begin
result := FormatDateTime('t', Time); result := FormatDateTime('tt', Time);
end ; end ;
{ DateTimeToStr returns a string representation of DateTime using ShortDateTimeFormat } { DateTimeToStr returns a string representation of DateTime using LongDateTimeFormat }
function DateTimeToStr(DateTime: TDateTime): string; function DateTimeToStr(DateTime: TDateTime): string;
begin begin
@ -695,7 +695,7 @@ var
if (Hour<>0) or (Minute<>0) or (Second<>0) then if (Hour<>0) or (Minute<>0) or (Second<>0) then
begin begin
StoreString(' '); StoreString(' ');
StoreFormat(TimeReformat(ShortTimeFormat)); StoreFormat(TimeReformat(LongTimeFormat));
end; end;
end; end;
end; end;