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

Disables the new widestring manager for fpc 2.7 and moves some comented routines to proper place

Browse Source 
git-svn-id: trunk@32982 -
This commit is contained in:
sekelsenmat 2011-10-19 14:44:14 +00:00
parent c5a96ed67a
commit 29e7449f18
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazutf16.pas
View File

@ -34,6 +34,12 @@ interface
uses uses
Classes, SysUtils, lazutf8; Classes, SysUtils, lazutf8;
//function UTF16CharacterLength(p: PWideChar): integer;
//function UTF16Length(const s: widestring): PtrInt;
//function UTF16Length(p: PWideChar; WordCount: PtrInt): PtrInt;
//function UTF16CharacterToUnicode(p: PWideChar; out CharLen: integer): Cardinal;
//function UnicodeToUTF16(u: cardinal): widestring;
function UnicodeLowercase(u: cardinal): cardinal; function UnicodeLowercase(u: cardinal): cardinal;
function UTF8LowerCaseViaTables(const s: utf8string): utf8string; function UTF8LowerCaseViaTables(const s: utf8string): utf8string;

6
components/lazutils/lazutf8.pas
View File

@ -69,11 +69,7 @@ function UTF8UpperCase(const AInStr: utf8string; ALanguage: utf8string=''): utf8
//procedure AssignUTF8ListToAnsi(UTF8List, AnsiList: TStrings); //procedure AssignUTF8ListToAnsi(UTF8List, AnsiList: TStrings);
//function UTF16CharacterLength(p: PWideChar): integer; }
//function UTF16Length(const s: widestring): PtrInt;
//function UTF16Length(p: PWideChar; WordCount: PtrInt): PtrInt;
//function UTF16CharacterToUnicode(p: PWideChar; out CharLen: integer): Cardinal;
//function UnicodeToUTF16(u: cardinal): widestring;}
//compare functions //compare functions

4
components/lazutils/paswstring.pas
View File

@ -22,10 +22,13 @@ interface
uses SysUtils, lazutf8, lconvencoding; uses SysUtils, lazutf8, lconvencoding;
{$IFNDEF VER2_7}
procedure SetPasWidestringManager; procedure SetPasWidestringManager;
{$ENDIF}
implementation implementation
{$IFNDEF VER2_7}
procedure fpc_rangeerror; [external name 'FPC_RANGEERROR']; procedure fpc_rangeerror; [external name 'FPC_RANGEERROR'];
procedure Wide2AnsiMove(source:pwidechar;var dest:ansistring;len:SizeInt); procedure Wide2AnsiMove(source:pwidechar;var dest:ansistring;len:SizeInt);
@ -417,4 +420,5 @@ end;
initialization initialization
SetPasWideStringManager; SetPasWideStringManager;
{$ENDIF}
end. end.