paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 07:17:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added CompareText

Browse Source 
git-svn-id: trunk@35890 -
This commit is contained in:
mattias 2012-03-11 15:56:49 +00:00
parent 49ec170b4e
commit 93cb3d2b93
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/basiccodetools.pas
View File

@ -153,6 +153,8 @@ procedure AdjustPositionAfterInsert(var p: integer; IsStart: boolean;
// comparison
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive: boolean): integer; overload;
function CompareText(const Txt1, Txt2: string;
CaseSensitive: boolean = false): integer; overload;
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive, IgnoreSpace: boolean): integer; overload;
function CompareTextIgnoringSpace(const Txt1, Txt2: string;
@ -5380,6 +5382,12 @@ begin
Result:=0;
end;
function CompareText(const Txt1, Txt2: string; CaseSensitive: boolean): integer;
begin
Result:=CompareText(PChar(Pointer(Txt1)),length(Txt1),
PChar(Pointer(Txt2)),length(Txt2),CaseSensitive);
end;
function CompareText(Txt1: PChar; Len1: integer; Txt2: PChar; Len2: integer;
CaseSensitive, IgnoreSpace: boolean): integer;
begin

6
components/codetools/codetoolsstructs.pas
View File

@ -123,6 +123,7 @@ type
procedure Remove(const Name: string); virtual;
property CaseSensitive: boolean read FCaseSensitive;
property Tree: TAVLTree read FTree; // tree of PStringMapItem
function Count: integer;
function FindNode(const s: string): TAVLTreeNode;
function Equals(OtherTree: TStringMap): boolean; reintroduce;
procedure Assign(Source: TStringMap); virtual;
@ -710,6 +711,11 @@ begin
end;
end;
function TStringMap.Count: integer;
begin
Result:=Tree.Count;
end;
function TStringMap.Equals(OtherTree: TStringMap): boolean;
var
Node: TAVLTreeNode;