paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 03:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* compilation with 1.0.x fixed

Browse Source 
+ infrastructure for WideCompareText implemented
This commit is contained in:
florian 2005-02-03 18:40:02 +00:00
parent 75f0b9eb40
commit f9d09611a8
4 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/sysutilh.inc
View File

@ -206,10 +206,10 @@ Type
{ MCBS functions }
{$i sysansih.inc}
{$ifdef HASWIDESTRING}
{$ifndef VER1_0}
{ wide string functions }
{$i syswideh.inc}
{$endif}
{$endif VER1_0}
{ Read filename handling functions declaration }
{$i finah.inc}
@ -232,7 +232,11 @@ Type
{
$Log$
Revision 1.11 2005-02-03 16:21:59 peter
Revision 1.12 2005-02-03 18:40:02 florian
* compilation with 1.0.x fixed
+ infrastructure for WideCompareText implemented
Revision 1.11 2005/02/03 16:21:59 peter
* 1.0.x fix
Revision 1.10 2005/02/01 20:22:50 florian

4
rtl/objpas/sysutils/sysutils.inc
View File

@ -67,10 +67,10 @@
{ MCBS functions }
{$i sysansi.inc}
{$ifdef HASWIDESTRING}
{$ifndef VER1_0}
{ wide string functions }
{$i syswide.inc}
{$endif}
{$endif VER1_0}
{ CPU Specific code }
{$i sysutilp.inc}

12
rtl/objpas/sysutils/syswide.inc
View File

@ -42,8 +42,18 @@ function WideSameStr(const s1, s2 : WideString) : Boolean;
result:=widestringmanager.SameWideStringProc(s1,s2);
end;
function WideCompareText(const s1, s2 : WideString) : PtrInt;
begin
result:=widestringmanager.CompareTextWideStringProc(s1,s2);
end;
{
$Log$
Revision 1.1 2005-02-01 20:22:50 florian
Revision 1.2 2005-02-03 18:40:02 florian
* compilation with 1.0.x fixed
+ infrastructure for WideCompareText implemented
Revision 1.1 2005/02/01 20:22:50 florian
* improved widestring infrastructure manager
}

7
rtl/objpas/sysutils/syswideh.inc
View File

@ -23,9 +23,14 @@ function WideUpperCase(const s : WideString) : WideString;
function WideLowerCase(const s : WideString) : WideString;
function WideCompareStr(const s1, s2 : WideString) : PtrInt;
function WideSameStr(const s1, s2 : WideString) : Boolean;
function WideCompareText(const s1, s2 : WideString) : PtrInt;
{
$Log$
Revision 1.1 2005-02-01 20:22:50 florian
Revision 1.2 2005-02-03 18:40:02 florian
* compilation with 1.0.x fixed
+ infrastructure for WideCompareText implemented
Revision 1.1 2005/02/01 20:22:50 florian
* improved widestring infrastructure manager
}