diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-03 19:41:52 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-03 19:41:52 +0000 |
| commit | 21438b7ca8862ef5b9f789e138efdbab15939a40 (patch) | |
| tree | 96b77cea5a4a8322d7ee117b881f1f08f574966a /src/base/UUnicodeUtils.pas | |
| parent | a5ad8dfa9ad48f9945a11e3e00eee49730962321 (diff) | |
| download | usdx-21438b7ca8862ef5b9f789e138efdbab15939a40.tar.gz usdx-21438b7ca8862ef5b9f789e138efdbab15939a40.tar.xz usdx-21438b7ca8862ef5b9f789e138efdbab15939a40.zip | |
fix compilation
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3177 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/base/UUnicodeUtils.pas')
| -rw-r--r-- | src/base/UUnicodeUtils.pas | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/base/UUnicodeUtils.pas b/src/base/UUnicodeUtils.pas index 52e40847..2fb87467 100644 --- a/src/base/UUnicodeUtils.pas +++ b/src/base/UUnicodeUtils.pas @@ -667,25 +667,33 @@ begin end; end; -function AnsiToAscii(const s:AnsiString):AnsiString; +function AnsiToAscii(const s :AnsiString): AnsiString; begin Result := s; if Result <> '' then begin UniqueString(Result); +{$IFDEF Windows} CharToOem(Pchar(Result), Pchar(Result)); +{$ELSE} +// todo +{$ENDIF} end; end; -function AsciiToAnsi(const s:AnsiString):AnsiString; +function AsciiToAnsi(const s: AnsiString): AnsiString; begin Result := s; if Result <> '' then begin UniqueString(Result); +{$IFDEF Windows} OemToChar(Pchar(Result), Pchar(Result)); +{$ELSE} +// todo +{$ENDIF} end; end; |