paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 12:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33078, missing MatchText

Browse Source 
git-svn-id: trunk@38063 -
This commit is contained in:
michael 2018-01-28 09:32:04 +00:00
parent a94ebf008c
commit 551d3eda26
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-objpas/src/inc/strutils.pp
View File

@ -45,6 +45,7 @@ Function AnsiReplaceStr(const AText, AFromText, AToText: string): string;inline;
Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;inline;
Function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
Function MatchStr(const AText: UnicodeString; const AValues: array of UnicodeString): Boolean;
Function MatchText(const AText: UnicodeString; const AValues: array of UnicodeString): Boolean;
Function IndexStr(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;
Function IndexText(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;
Operator in (const AText: string; const AValues: array of string):Boolean;inline;
@ -991,6 +992,10 @@ begin
Result := IndexStr(AText,AValues) <> -1;
end;
function MatchText(const AText: UnicodeString; const AValues: array of UnicodeString): Boolean;
begin
Result := IndexText(AText,AValues) <> -1;
end;
function IndexStr(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;
var