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

* Removed UpperCaseTable and LowerCaseTable variables and TCaseTranslationTable type from interface part. These variables are used only by generic upper/lower case conversion routines. They are not used on Windows targets and it is bad idea to let users use these variables. Users must use AnsiLowerCase and AnsiUpperCase routines.

Browse Source 
git-svn-id: trunk@9301 -
This commit is contained in:
yury 2007-11-20 10:45:50 +00:00
parent cc77ccb52e
commit d568718cb0
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/sysinth.inc
View File

@ -27,7 +27,6 @@
---------------------------------------------------------------------} ---------------------------------------------------------------------}
type type
TCaseTranslationTable = array[0..255] of char;
TMonthNameArray = array[1..12] of string; TMonthNameArray = array[1..12] of string;
TWeekNameArray = array[1..7] of string; TWeekNameArray = array[1..7] of string;
@ -55,13 +54,6 @@ type
end; end;
var var
{$ifndef FPC_NOGENERICANSIROUTINES}
{ Tables with upper and lowercase forms of character sets.
MUST be initialized with the correct code-pages }
UpperCaseTable: TCaseTranslationTable;
LowerCaseTable: TCaseTranslationTable;
{$endif FPC_NOGENERICANSIROUTINES}
DefaultFormatSettings : TFormatSettings = ( DefaultFormatSettings : TFormatSettings = (
CurrencyFormat: 1; CurrencyFormat: 1;
NegCurrFormat: 5; NegCurrFormat: 5;

9
rtl/objpas/sysutils/sysstr.inc
View File

@ -219,6 +219,15 @@ end;
{ these functions rely on the character set loaded by the OS } { these functions rely on the character set loaded by the OS }
{==============================================================================} {==============================================================================}
type
TCaseTranslationTable = array[0..255] of char;
var
{ Tables with upper and lowercase forms of character sets.
MUST be initialized with the correct code-pages }
UpperCaseTable: TCaseTranslationTable;
LowerCaseTable: TCaseTranslationTable;
function GenericAnsiUpperCase(const s: string): string; function GenericAnsiUpperCase(const s: string): string;
var var
len, i: integer; len, i: integer;