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

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

Browse Source 
git-svn-id: trunk@25582 -
This commit is contained in:
michael 2013-09-26 18:09:12 +00:00
parent eebabc0152
commit 098769d1b3
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

@ -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;

6
rtl/objpas/classes/stringl.inc
View File

@ -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