From e91bc5bb19a20003e8cad7b4858b02fd8032bfd7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 26 Feb 2004 08:46:21 +0000
Subject: [PATCH] + Added AnsiSameStr
---
rtl/objpas/sysutils/sysstr.inc | 11 ++++++++++-
rtl/objpas/sysutils/sysstrh.inc | 6 +++++-
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 381844fa35..383bf10035 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -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
diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc
index 3dd5ae9332..ede1d5db04 100644
--- a/rtl/objpas/sysutils/sysstrh.inc
+++ b/rtl/objpas/sysutils/sysstrh.inc
@@ -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