paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +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);
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;