GitHub-Mirror
/
x2xmldatabinding
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed: xs:anyType properties should be read-only

This commit is contained in:
Mark van Renswoude 2012-05-22 13:31:56 +00:00
parent fcfa4dda85
commit cb4e3a1148
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Units/DelphiXMLDataBindingGenerator.pas
View File

@ -1105,6 +1105,21 @@ function TDelphiXMLDataBindingGenerator.WriteSchemaInterfaceProperty(AStream: TS
end;
function IsReadOnly(AProperty: TXMLDataBindingProperty): Boolean;
var
typeMapping: TTypeMapping;
begin
Result := AProperty.IsReadOnly;
if (not Result) and (AProperty.PropertyType = ptSimple) then
begin
if GetDataTypeMapping(TXMLDataBindingSimpleProperty(AProperty).DataType, typeMapping) then
Result := (typeMapping.Conversion = tcNode);
end;
end;
var
sourceCode: TNamedFormatStringList;
writeOptional: Boolean;
@ -1214,7 +1229,7 @@ begin
end;
dxmPropertySet:
if not AProperty.IsReadOnly then
if not IsReadOnly(AProperty) then
begin
WriteNewLine;
@ -1235,7 +1250,7 @@ begin
if writeOptional then
sourceCode.Add(PropertyInterfaceOptional);
if AProperty.IsReadOnly then
if IsReadOnly(AProperty) then
begin
if writeNil then
sourceCode.Add(PropertyInterfaceNilReadOnly);
@ -1341,7 +1356,7 @@ begin
sourceCode.AddLn;
end;
dxmPropertySet:
if not AProperty.IsReadOnly then
if not IsReadOnly(AProperty) then
begin
WriteNewLine;