1
0
mirror of synced 2024-11-14 19:13:50 +00:00

fixed exception in TXMLDataBindingItem.GetDocumentation

see https://docwiki.embarcadero.com/Libraries/Sydney/en/Xml.XMLIntf.IXMLNode.Text
This commit is contained in:
Dietmar Schölzel 2022-06-02 11:05:12 +02:00
parent d86bfbb276
commit e99acc1c7f

View File

@ -1782,7 +1782,8 @@ end;
function TXMLDataBindingItem.GetHasDocumentation: Boolean; function TXMLDataBindingItem.GetHasDocumentation: Boolean;
begin begin
Result := Assigned(SchemaItem) and Result := Assigned(SchemaItem) and
(SchemaItem.Documentation.Count > 0); (SchemaItem.Documentation.Count > 0) and
SchemaItem.Documentation.IsTextElement;
end; end;