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

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

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);