paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: replaced AnsiCompareText

Browse Source 
git-svn-id: trunk@47165 -
This commit is contained in:
mattias 2014-12-10 03:14:05 +00:00
parent 4b3c76e18a
commit 56a75016e0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lazhelpintf.pas
View File

@ -1070,7 +1070,7 @@ begin
for i:=0 to FSearchItems.Count-1 do begin for i:=0 to FSearchItems.Count-1 do begin
Node:=THelpDBItem(FSearchItems[i]).Node; Node:=THelpDBItem(FSearchItems[i]).Node;
if (Node=nil) or (not Node.IDValid) then continue; if (Node=nil) or (not Node.IDValid) then continue;
if AnsiCompareText(Node.ID,HelpKeyword)<>0 then continue; if UTF8CompareText(Node.ID,HelpKeyword)<>0 then continue;
CreateNodeQueryListAndAdd(Node,nil,ListOfNodes,true); CreateNodeQueryListAndAdd(Node,nil,ListOfNodes,true);
end; end;
end; end;
@ -1092,7 +1092,7 @@ begin
for i:=0 to FSearchItems.Count-1 do begin for i:=0 to FSearchItems.Count-1 do begin
Node:=THelpDBItem(FSearchItems[i]).Node; Node:=THelpDBItem(FSearchItems[i]).Node;
if (Node=nil) or (not Node.IDValid) then continue; if (Node=nil) or (not Node.IDValid) then continue;
if AnsiCompareText(Node.ID,HelpDirective)<>0 then continue; if UTF8CompareText(Node.ID,HelpDirective)<>0 then continue;
CreateNodeQueryListAndAdd(Node,nil,ListOfNodes,true); CreateNodeQueryListAndAdd(Node,nil,ListOfNodes,true);
end; end;
end; end;
@ -1390,7 +1390,7 @@ end;
function THelpDatabases.IndexOf(ID: THelpDatabaseID): integer; function THelpDatabases.IndexOf(ID: THelpDatabaseID): integer;
begin begin
Result:=Count-1; Result:=Count-1;
while (Result>=0) and (AnsiCompareText(ID,Items[Result].ID)<>0) do while (Result>=0) and (UTF8CompareText(ID,Items[Result].ID)<>0) do
dec(Result); dec(Result);
end; end;