GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-12-21 16:43:07 +01:00
Code Issues Projects Releases Wiki Activity

Merge pull request #8 from HeRoSofty/XmlSchemaDocumentation

Browse Source 
Fix: Documentation Element not recognized anymore
This commit is contained in:
Mark van Renswoude 2023-11-09 18:22:12 +01:00 committed by GitHub
commit f3d832b1fc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Units/XMLDataBindingGenerator.pas
View File

@ -1782,7 +1782,18 @@ begin
if HasDocumentation then
begin
for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
Result := Result + SchemaItem.Documentation[documentationIndex].Text + #13#10;
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);
end;
@ -1790,10 +1801,16 @@ end;
function TXMLDataBindingItem.GetHasDocumentation: Boolean;
var
documentationIndex: Integer;
begin
Result := Assigned(SchemaItem) and
(SchemaItem.Documentation.Count > 0) and
SchemaItem.Documentation.IsTextElement;
Result := False;
if Assigned(SchemaItem) then
begin
for documentationIndex := 0 to Pred(SchemaItem.Documentation.Count) do
Result := Result or SchemaItem.Documentation[documentationIndex].IsTextElement;
end;
end;