1
0
mirror of synced 2024-11-14 11:09:16 +00:00

Generate attribute properties for complex types

This commit is contained in:
Mark van Renswoude 2009-04-14 13:20:41 +00:00
parent f705ac121e
commit de277ebcfc

View File

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