paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TEncoding.GetEncoding - create unicode encodings, not only MBCS

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-08-28 16:53:04 +02:00 committed by Michaël Van Canneyt
parent 5ab6775376
commit bce2f26234
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysencoding.inc
View File

@ -454,7 +454,7 @@ begin
ACodePage := CodePageNameToCodePage(AnsiString(EncodingName)); ACodePage := CodePageNameToCodePage(AnsiString(EncodingName));
if ACodePage = $FFFF then if ACodePage = $FFFF then
raise EEncodingError.CreateFmt(SNotValidCodePageName, [EncodingName]); raise EEncodingError.CreateFmt(SNotValidCodePageName, [EncodingName]);
Result := TMBCSEncoding.Create(ACodePage); Result := GetEncoding(ACodePage);
end; end;
function TEncoding.GetString(const Bytes: TBytes): UnicodeString; function TEncoding.GetString(const Bytes: TBytes): UnicodeString;