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

lazutils: less hints

Browse Source 
git-svn-id: branches/fixes_2_0@59217 -
This commit is contained in:
mattias 2018-10-01 15:14:11 +00:00
parent 15eb97402b
commit 810cf7be40
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 // NodeList
// ------------------------------------------------------- // -------------------------------------------------------
TFilterResult = (frFalse, frNorecurseFalse, frTrue, frNorecurseTrue); TFilterResult = (frFalse, frNoRecurseFalse, frTrue, frNoRecurseTrue);
TDOMNodeList = class(TObject) TDOMNodeList = class(TObject)
protected protected
@ -1901,7 +1901,7 @@ end;
function TDOMNodeList.NodeFilter(aNode: TDOMNode): TFilterResult; function TDOMNodeList.NodeFilter(aNode: TDOMNode): TFilterResult;
begin begin
// accept all nodes but don't allow recursion // accept all nodes but don't allow recursion
Result := frNorecurseTrue; Result := frNoRecurseTrue;
end; end;
procedure TDOMNodeList.BuildList; procedure TDOMNodeList.BuildList;
@ -1917,7 +1917,7 @@ begin
while Assigned(current) do while Assigned(current) do
begin begin
res := NodeFilter(current); res := NodeFilter(current);
if res in [frTrue, frNorecurseTrue] then if res in [frTrue, frNoRecurseTrue] then
FList.Add(current); FList.Add(current);
next := nil; next := nil;