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

* East Asian locales era patch from Mantis #33003

Browse Source 
git-svn-id: trunk@37944 -
This commit is contained in:
marco 2018-01-11 10:29:32 +00:00
parent 8aaa3c0fd5
commit af85960d62
2 changed files with 9 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1079,7 +1079,7 @@ var
':': StoreStr(@FormatSettings.TimeSeparator, 1);
'[': if (fdoInterval in Options) then isInterval := true else StoreStr(FormatCurrent, 1);
']': if (fdoInterval in Options) then isInterval := false else StoreStr(FormatCurrent, 1);
' ', 'C', 'D', 'H', 'M', 'N', 'S', 'T', 'Y', 'Z', 'F' :
' ', 'C', 'D', 'H', 'M', 'N', 'S', 'T', 'Y', 'Z', 'F' {$IFDEF MSWindows}, 'G', 'E'{$ENDIF MSWindows} :
begin
while (P < FormatEnd) and (UpCase(P^) = Token) do
Inc(P);
@ -1183,7 +1183,7 @@ var
'E':
begin
if not Eastasiainited then InitEastAsia;
if Not(isEnable_E_Format) then StoreStr(@FormatCurrent^, 1)
if Not(isEnable_E_Format) then StoreStr(FormatCurrent, 1)
else
begin
while (P < FormatEnd) and (UpCase(P^) = Token) do
@ -1197,7 +1197,7 @@ var
'G':
begin
if not Eastasiainited then InitEastAsia;
if Not(isEnable_G_Format) then StoreStr(@FormatCurrent^, 1)
if Not(isEnable_G_Format) then StoreStr(FormatCurrent, 1)
else
begin
while (P < FormatEnd) and (UpCase(P^) = Token) do

29
rtl/win/sysutils.pp
View File

@ -744,39 +744,22 @@ end;
function ConvertEraString(Count ,Year,Month,Day : integer) : string;
var
ASystemTime: TSystemTime;
buf: array[0..100] of char;
wbuf: array[0..100] of WideChar;
ALCID : LCID;
PriLangID : Word;
SubLangID : Word;
begin
Result := ''; if (Count<=0) then exit;
DateTimeToSystemTime(EncodeDate(Year,Month,Day),ASystemTime);
ALCID := GetThreadLocale;
// ALCID := SysLocale.DefaultLCID;
if GetDateFormatA(ALCID , DATE_USE_ALT_CALENDAR
, @ASystemTime, PChar('gg')
, @buf, SizeOf(buf)) > 0 then
if GetDateFormatW(ALCID , DATE_USE_ALT_CALENDAR
, @ASystemTime, PWChar('gg')
, @wbuf, SizeOf(wbuf)) > 0 then
begin
Result := buf;
if Count = 1 then
begin
PriLangID := ALCID and $3FF;
SubLangID := (ALCID and $FFFF) shr 10;
case PriLangID of
LANG_JAPANESE:
begin
Result := Copy(WideString(Result),1,1);
end;
LANG_CHINESE:
if (SubLangID = SUBLANG_CHINESE_TRADITIONAL) then
begin
Result := Copy(WideString(Result),1,1);
end;
end;
end;
wbuf[1] := #0;
Result := string(WideString(wbuf));
end;
// if Result = '' then Result := StringOfChar('G',Count);
end;
function ConvertEraYearString(Count ,Year,Month,Day : integer) : string;