GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-21 21:43:49 +00:00
Code Issues Projects Releases Wiki Activity

include xml:lang and source attributes in GetDocumentation

Browse Source
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,8 +1784,16 @@ begin
for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
begin begin
if SchemaItem.Documentation[documentationIndex].IsTextElement then 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; Result := Result + SchemaItem.Documentation[documentationIndex].Text + #13#10;
end; end;
end;
Result := Trim(Result); Result := Trim(Result);
end; end;