paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 01:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: show exceptions of GetFormatSettingsUTF8

Browse Source 
git-svn-id: trunk@47103 -
This commit is contained in:
mattias 2014-12-04 18:10:53 +00:00
parent 7fdf4a2de2
commit b27cc83e34
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/winlazutf8.inc
View File

@ -424,9 +424,6 @@ begin
{$ifdef debugparamstrutf8} {$ifdef debugparamstrutf8}
if ParamCount <> ArgsWCount then ParamStrUtf8Error; if ParamCount <> ArgsWCount then ParamStrUtf8Error;
{$endif} {$endif}
{$ifdef EnableUTF8RTL}
GetFormatSettingsUTF8(GetThreadLocale,FormatSettings);
{$endif}
Except Except
begin begin
ArgsWCount := -1; ArgsWCount := -1;
@ -436,6 +433,9 @@ begin
end; end;
end; end;
end; end;
{$ifdef EnableUTF8RTL}
GetFormatSettingsUTF8(GetThreadLocale,FormatSettings);
{$endif}
end; end;
procedure FinalizeLazUTF8; procedure FinalizeLazUTF8;