paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix day names

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-11 16:02:48 +02:00
parent 957c5371bc
commit c4a5282309
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/sysutils.pas
View File

@ -53,7 +53,7 @@ type
TDayTable = array [1..12] of Word;
TWeekNameArray = array [1..7] of string;
TMonthNames = TMonthNameArray;
TDayNames = array[0..6] of string;
TDayNames = array[1..7] of string;
type
@ -4234,8 +4234,8 @@ var
case Count of
1: StoreInt(Day, 0);
2: StoreInt(Day, 2);
3: StoreString(aSettings.ShortDayNames[DayOfWeek-1]);
4: StoreString(aSettings.LongDayNames[DayOfWeek-1]);
3: StoreString(aSettings.ShortDayNames[DayOfWeek]);
4: StoreString(aSettings.LongDayNames[DayOfWeek]);
5: StoreFormat(aSettings.ShortDateFormat, Nesting+1, False);
else
StoreFormat(aSettings.LongDateFormat, Nesting+1, False);