From 21a4a9034d7027d11dff73102a74fc725ef62595 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 8 Nov 2015 19:43:26 +0000 Subject: [PATCH] * commented out all untested (and on non-Win32: unimplemened) TCompareOption flags git-svn-id: trunk@32275 - --- rtl/inc/ustringh.inc | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/rtl/inc/ustringh.inc b/rtl/inc/ustringh.inc index ecaf2805a7..78b6426834 100644 --- a/rtl/inc/ustringh.inc +++ b/rtl/inc/ustringh.inc @@ -52,11 +52,14 @@ procedure DefaultUnicode2AnsiMove(source:punicodechar;var dest:RawByteString;cp procedure DefaultAnsi2UnicodeMove(source:pchar;cp : TSystemCodePage;var dest:unicodestring;len:SizeInt); 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, - coLingCasing, coDigitAsNumbers, coStringSort); + coLingCasing, coDigitAsNumbers, coStringSort}); TCompareOptions = set of TCompareOption; - TStandardCodePageEnum = ( + TStandardCodePageEnum = ( scpAnsi, // system Ansi code page (GetACP on windows) scpConsoleInput, // system console input code page (GetConsoleCP on windows) scpConsoleOutput, // system console output code page (GetConsoleOutputCP on windows)