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

rtl: TFormatSettings class constructor

Browse Source
This commit is contained in:
mattias 2019-02-17 20:49:59 +00:00
parent 218736588c
commit 1559d1f4b6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/sysutils.pas
View File

@ -463,6 +463,7 @@ type
procedure SetTimePMString(const Value: string);
procedure SetTimeSeparator(const Value: char);
public
class constructor Init;
Property ShortMonthNames : TMonthNames Read GetShortMonthNames Write SetShortMonthNames;
Property LongMonthNames : TMonthNames Read GetLongMonthNames Write SetLongMonthNames;
Property ShortDayNames : TDayNames Read GetShortDayNames Write SetShortDayNames;
@ -4146,6 +4147,11 @@ begin
SysUtils.TimeSeparator := Value;
end;
class constructor TFormatSettings.Init;
begin
FormatSettings := TFormatSettings.Create;
end;
{ ---------------------------------------------------------------------
FileNames
---------------------------------------------------------------------}
@ -4404,9 +4410,5 @@ begin
Result := '';
end;
initialization
FormatSettings := TFormatSettings.Create;
end.