mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 12:10:36 +02:00
* Patch from Mattias Gaertner to check for name when adding elements
git-svn-id: trunk@32728 -
This commit is contained in:
parent
891aaa9732
commit
143acd2497
@ -164,7 +164,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
Result:=N as TDomElement
|
Result:=N as TDomElement
|
||||||
end
|
end
|
||||||
else
|
else if AElement.Name<>'' then
|
||||||
begin // N=NIL, PE might be nil.
|
begin // N=NIL, PE might be nil.
|
||||||
Inc(ACount);
|
Inc(ACount);
|
||||||
Result:=FClassTree.CreateElement(AElement.Name);
|
Result:=FClassTree.CreateElement(AElement.Name);
|
||||||
|
Loading…
Reference in New Issue
Block a user