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

+ StrCompAnsi implementation

Browse Source 
git-svn-id: trunk@1049 -
This commit is contained in:
florian 2005-09-04 13:49:23 +00:00
parent 345472138d
commit 629fc8fe64
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/unix/cwstring.pp
View File

@ -57,6 +57,7 @@ var
function towlower(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towlower';
function towupper(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towupper';
function wcscoll (__s1:pwchar_t; __s2:pwchar_t):cint;cdecl;external libiconvname name 'wcscoll';
function strcoll (__s1:pchar_t; __s2:pchar_t):cint;cdecl;external libiconvname name 'strcoll';
const
{$ifdef linux}
@ -227,11 +228,16 @@ function CompareTextWideString(const s1, s2 : WideString): PtrInt;
begin
end;
Var
CWideStringManager : TWideStringManager;
function StrCompAnsi(s1,s2 : AnsiString): PtrInt;
begin
result:=strcoll(s1,s2);
end;
Procedure SetCWideStringManager;
Var
CWideStringManager : TWideStringManager;
begin
CWideStringManager:=widestringmanager;
With CWideStringManager do
@ -250,7 +256,9 @@ begin
LowerAnsiStringProc
CompareStrAnsiStringProc
CompareTextAnsiStringProc
StrCompAnsiStringProc
}
StrCompAnsiStringProc:=@StrCompAnsi;
{
StrICompAnsiStringProc
StrLCompAnsiStringProc
StrLICompAnsiStringProc