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

lazutils: less hints

Browse Source 
git-svn-id: trunk@59216 -
This commit is contained in:
mattias 2018-10-01 15:13:34 +00:00
parent 1fb0143559
commit f9799efe90
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/laz2_dom.pas
View File

@ -339,7 +339,7 @@ type
// NodeList
// -------------------------------------------------------
TFilterResult = (frFalse, frNorecurseFalse, frTrue, frNorecurseTrue);
TFilterResult = (frFalse, frNoRecurseFalse, frTrue, frNoRecurseTrue);
TDOMNodeList = class(TObject)
protected
@ -1901,7 +1901,7 @@ end;
function TDOMNodeList.NodeFilter(aNode: TDOMNode): TFilterResult;
begin
// accept all nodes but don't allow recursion
Result := frNorecurseTrue;
Result := frNoRecurseTrue;
end;
procedure TDOMNodeList.BuildList;
@ -1917,7 +1917,7 @@ begin
while Assigned(current) do
begin
res := NodeFilter(current);
if res in [frTrue, frNorecurseTrue] then
if res in [frTrue, frNoRecurseTrue] then
FList.Add(current);
next := nil;