diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-01 11:04:27 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-01 11:04:27 +0000 |
commit | 70a287773fc7001b810b9f91daf6d6e941e662f3 (patch) | |
tree | 7541eecf0988eb7ceb0d120319efc11775d5627b /unicode/src/base/UTextEncoding.pas | |
parent | 57ffe185c8069eb622aefa7c283bfa89af671689 (diff) | |
download | usdx-70a287773fc7001b810b9f91daf6d6e941e662f3.tar.gz usdx-70a287773fc7001b810b9f91daf6d6e941e662f3.tar.xz usdx-70a287773fc7001b810b9f91daf6d6e941e662f3.zip |
- freetype enabled by default
- Result[DstPos] := WideChar(Src[SrcPos]) must be
Result[DstPos] := WideChar(Ord(Src[SrcPos])) otherwise FPC (but not Delphi) will convert the character according to current locale.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1495 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UTextEncoding.pas')
-rw-r--r-- | unicode/src/base/UTextEncoding.pas | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/unicode/src/base/UTextEncoding.pas b/unicode/src/base/UTextEncoding.pas index 6eec8eec..ae36a270 100644 --- a/unicode/src/base/UTextEncoding.pas +++ b/unicode/src/base/UTextEncoding.pas @@ -115,7 +115,10 @@ begin if (Src[SrcPos] < #128) then begin // copy ASCII char - Result[DstPos] := Src[SrcPos]; + // Important: the Ord() is necessary to prevent FPC from an automatic + // encoding conversion (using the local codepage). Delphi does not perform + // such a conversion. + Result[DstPos] := WideChar(Ord(Src[SrcPos])); Inc(DstPos); end else |