paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 13:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed utf8 lowercase init

Browse Source 
git-svn-id: trunk@16570 -
This commit is contained in:
mattias 2008-09-12 19:46:35 +00:00
parent cbc48ec1e5
commit 1ca043ca07
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lclproc.pas
View File

@ -307,7 +307,6 @@ procedure UTF8Delete(var s: String; StartCharIndex, CharCount: integer);
procedure UTF8Insert(const source: String; var s: string; StartCharIndex: integer);
function UTF8LowerCase(const s: String): String;
function UTF8UpperCase(const s: String): String;
function UnicodeLowercase(u: cardinal): cardinal;
function UTF8LowerCaseNew(const s: String): String;
function FindInvalidUTF8Character(p: PChar; Count: integer;
StopOnNonASCII: Boolean = false): integer;
@ -362,7 +361,7 @@ var
i: Integer;
begin
for i:=Low(UnicodeLower00C0_2CE2) to High(UnicodeLower00C0_2CE2) do
UnicodeLower00C0_2CE2[i]:=i+32;
UnicodeLower00C0_2CE2[i]:=i;
for i:=Low($00C0) to High($00DE) do
UnicodeLower00C0_2CE2[i]:=i+32;
UnicodeLower00C0_2CE2[$00D7]:=$00D7;