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

* commented out all untested (and on non-Win32: unimplemened) TCompareOption

Browse Source 
flags

git-svn-id: trunk@32275 -
This commit is contained in:
Jonas Maebe 2015-11-08 19:43:26 +00:00
parent 37c1c88f89
commit 21a4a9034d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/ustringh.inc
View File

@ -52,9 +52,12 @@ procedure DefaultUnicode2AnsiMove(source:punicodechar;var dest:RawByteString;cp
procedure DefaultAnsi2UnicodeMove(source:pchar;cp : TSystemCodePage;var dest:unicodestring;len:SizeInt); procedure DefaultAnsi2UnicodeMove(source:pchar;cp : TSystemCodePage;var dest:unicodestring;len:SizeInt);
Type Type
TCompareOption = (coLingIgnoreCase, coLingIgnoreDiacritic, coIgnoreCase, { please only enable options below after creating a test program for them that
passes on Windows and committing it, so it can be used to verify the
functionality on other platforms }
TCompareOption = ({coLingIgnoreCase, coLingIgnoreDiacritic, }coIgnoreCase{,
coIgnoreKanaType, coIgnoreNonSpace, coIgnoreSymbols, coIgnoreWidth, coIgnoreKanaType, coIgnoreNonSpace, coIgnoreSymbols, coIgnoreWidth,
coLingCasing, coDigitAsNumbers, coStringSort); coLingCasing, coDigitAsNumbers, coStringSort});
TCompareOptions = set of TCompareOption; TCompareOptions = set of TCompareOption;
TStandardCodePageEnum = ( TStandardCodePageEnum = (
scpAnsi, // system Ansi code page (GetACP on windows) scpAnsi, // system Ansi code page (GetACP on windows)