paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add some methods to TFormatSettings for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 17:07:04 +01:00
parent 33950a5e22
commit 81e2db47a9
2 changed files with 39 additions and 0 deletions
rtl/objpas/sysutils
sysint.incsysinth.inc

35
rtl/objpas/sysutils/sysint.inc
View File

@ -13,6 +13,41 @@
**********************************************************************}
class function TFormatSettings.Invariant : TFormatSettings;
begin
With Result do
begin
CurrencyFormat:=1;
NegCurrFormat:=5;
ThousandSeparator:=',';
DecimalSeparator:='.';
CurrencyDecimals:=2;
DateSeparator:='-';
TimeSeparator:=':';
ListSeparator:=',';
CurrencyString:='$';
ShortDateFormat:='d/m/y';
LongDateFormat:='dd" "mmmm" "yyyy';
TimeAMString:='AM';
TimePMString:='PM';
ShortTimeFormat:='hh:nn';
LongTimeFormat:='hh:nn:ss';
ShortMonthNames:=['Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec'];
LongMonthNames:=['January','February','March','April','May','June',
'July','August','September','October','November','December'];
ShortDayNames:=['Sun','Mon','Tue','Wed','Thu','Fri','Sat'];
LongDayNames:=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
TwoDigitYearCenturyWindow:=50;
end;
end;
class function TFormatSettings.Create: TFormatSettings; inline;
begin
Result:=DefaultFormatSettings;
end;
procedure InitInternationalGeneric;
begin

4
rtl/objpas/sysutils/sysinth.inc
View File

@ -52,6 +52,10 @@ type
ShortDayNames: TWeekNameArray;
LongDayNames: TWeekNameArray;
TwoDigitYearCenturyWindow: Word;
class function Invariant : TFormatSettings; static;
class function Create: TFormatSettings; overload; static; inline;
// class function Create(Locale: TLocaleID): TFormatSettings; overload; platform; static;
// class function Create(const LocaleName: string): TFormatSettings; overload; static;
end;
var