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

+ Added AnsiSameStr

Browse Source
This commit is contained in:
michael 2004-02-26 08:46:21 +00:00
parent 5332b623ad
commit e91bc5bb19
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -263,6 +263,12 @@ begin
AnsiSameText:=AnsiCompareText(S1,S2)=0;
end;
function AnsiSameStr(const s1,s2:String):Boolean;
begin
AnsiSameStr:=AnsiCompareStr(S1,S2)=0;
end;
function AnsiStrComp(S1, S2: PChar): integer;
begin
@ -2138,7 +2144,10 @@ const
{
$Log$
Revision 1.8 2003-11-26 22:17:42 michael
Revision 1.9 2004-02-26 08:46:21 michael
+ Added AnsiSameStr
Revision 1.8 2003/11/26 22:17:42 michael
+ Merged fixbranch fixes, missing in main branch
Revision 1.7 2003/11/22 17:18:53 marco

6
rtl/objpas/sysutils/sysstrh.inc
View File

@ -81,6 +81,7 @@ function AnsiLowerCase(const s: string): string;
function AnsiCompareStr(const S1, S2: string): integer;
function AnsiCompareText(const S1, S2: string): integer;
function AnsiSameText(const s1,s2:String):Boolean;
function AnsiSameStr(const s1,s2:String):Boolean;
function AnsiStrComp(S1, S2: PChar): integer;
function AnsiStrIComp(S1, S2: PChar): integer;
function AnsiStrLComp(S1, S2: PChar; MaxLen: cardinal): integer;
@ -177,7 +178,10 @@ function BCDToInt(Value: integer): integer;
{
$Log$
Revision 1.3 2003-11-26 22:17:42 michael
Revision 1.4 2004-02-26 08:46:21 michael
+ Added AnsiSameStr
Revision 1.3 2003/11/26 22:17:42 michael
+ Merged fixbranch fixes, missing in main branch
Revision 1.2 2003/10/07 12:02:47 marco