GitHub-Mirror
/
x2xmldatabinding
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

include xml:lang and source attributes in GetDocumentation

This commit is contained in:
Ronny Heidenreich 2023-11-09 15:10:03 +01:00
parent 5f79c4a481
commit 05dcbf0f09
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/XMLDataBindingGenerator.pas
View File

@ -1784,7 +1784,15 @@ begin
for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
begin
if SchemaItem.Documentation[documentationIndex].IsTextElement then
begin
if SchemaItem.Documentation[documentationIndex].HasAttribute('xml:lang') then
Result := Result + '[' + SchemaItem.Documentation[documentationIndex].Attributes['xml:lang'] + '] ';
if SchemaItem.Documentation[documentationIndex].HasAttribute('source') then
Result := Result + '(' + SchemaItem.Documentation[documentationIndex].Attributes['source'] + ') ';
Result := Result + SchemaItem.Documentation[documentationIndex].Text + #13#10;
end;
end;
Result := Trim(Result);