GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-16 12:03:50 +00:00
Code Issues Projects Releases Wiki Activity

Generate attribute properties for complex types

Browse Source
This commit is contained in:
Mark van Renswoude 2009-04-14 13:20:41 +00:00
parent f705ac121e
commit de277ebcfc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/XMLDataBindingGenerator.pas
View File

@ -603,6 +603,7 @@ var
complexType: IXMLComplexTypeDef; complexType: IXMLComplexTypeDef;
interfaceItem: TXMLDataBindingInterface; interfaceItem: TXMLDataBindingInterface;
elementIndex: Integer; elementIndex: Integer;
attributeIndex: Integer;
begin begin
schemaDef := ASchema.SchemaDef; schemaDef := ASchema.SchemaDef;
@ -620,6 +621,9 @@ begin
for elementIndex := 0 to Pred(complexType.ElementDefList.Count) do for elementIndex := 0 to Pred(complexType.ElementDefList.Count) do
ProcessChildElement(ASchema, complexType.ElementDefList[elementIndex], interfaceItem); ProcessChildElement(ASchema, complexType.ElementDefList[elementIndex], interfaceItem);
for attributeIndex := 0 to Pred(complexType.AttributeDefs.Count) do
ProcessAttribute(ASchema, complexType.AttributeDefs[attributeIndex], interfaceItem);
end; end;
end; end;