* Added TStringList.CompareStrings (Delphi compatibility), patch by Stephano, bug ID #24981

git-svn-id: trunk@25582 -

rtl/objpas/classes/classesh.inc

@@ -749,6 +749,7 @@ type
     procedure InsertItem(Index: Integer; const S: string); virtual;
     procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual;
     Function DoCompareText(const s1,s2 : string) : PtrInt; override;
+    function CompareStrings(const s1,s2 : string) : Integer; virtual;
 
   public
     destructor Destroy; override;

rtl/objpas/classes/stringl.inc

@@ -1298,6 +1298,12 @@ Function TStringList.DoCompareText(const s1,s2 : string) : PtrInt;
   end;
 
 
+function TStringList.CompareStrings(const s1,s2 : string) : Integer;
+begin
+  Result := DoCompareText(s1, s2);
+end;
+
+
 Function TStringList.Find(const S: string; Out Index: Integer): Boolean;
 
 var