Commit 0eb446e9 authored by Mattias Gaertner's avatar Mattias Gaertner 🙃
Browse files

lazutils: SysToUTF8: only UTF8_RTL, issue #35696, from Serge Anvarov

git-svn-id: trunk@61352 -
parent 54083585
......@@ -322,10 +322,13 @@ begin
end;
function SysToUTF8(const AFormatSettings: TFormatSettings): TFormatSettings;
{$IFNDEF UTF8_RTL}
var
i: Integer;
{$ENDIF}
begin
Result := AFormatSettings;
{$IFNDEF UTF8_RTL}
Result.CurrencyString := SysToUTF8(AFormatSettings.CurrencyString);
for i:=1 to 12 do begin
Result.LongMonthNames[i] := SysToUTF8(AFormatSettings.LongMonthNames[i]);
......@@ -335,6 +338,7 @@ begin
Result.LongDayNames[i] := SysToUTF8(AFormatSettings.LongDayNames[i]);
Result.ShortDayNames[i] := SysToUTF8(AFormatSettings.ShortDayNames[i]);
end;
{$ENDIF}
end;
function UTF8ToSys(const AFormatSettings: TFormatSettings): TFormatSettings;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment