GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-23 14:13:49 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: SortChildNodes could cause "Line too long" error on large documents

Browse Source
This commit is contained in:
Mark van Renswoude 2014-08-05 12:03:22 +00:00
parent aa29f0463e
commit dc29a0ae51
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/DelphiXMLDataBindingGenerator.pas
View File

@ -1549,7 +1549,13 @@ begin
end; end;
end else if not propertyItem.IsNodeValue then end else if not propertyItem.IsNodeValue then
begin begin
elementSortOrder := elementSortOrder + ', ' + QuotedStr(propertyItem.Name); elementSortOrder := elementSortOrder + ', ';
{ Prevent "Line too long" on large elements }
if (elementSortCount > 0) and (elementSortCount mod 5 = 0) then
elementSortOrder := elementSortOrder + XSDValidateMethodImplementationSortNewLine;
elementSortOrder := elementSortOrder + QuotedStr(propertyItem.Name);
Inc(elementSortCount); Inc(elementSortCount);
if (not propertyItem.IsOptional) and (not propertyItem.IsRepeating) then if (not propertyItem.IsOptional) and (not propertyItem.IsRepeating) then

1
Units/DelphiXMLDataBindingResources.pas
View File

@ -108,6 +108,7 @@ const
XSDValidateMethodImplementationComplex = ' Get%<Name>:s;'; XSDValidateMethodImplementationComplex = ' Get%<Name>:s;';
XSDValidateMethodImplementationAttrib = ' CreateRequiredAttributes(Self, [%<RequiredAttributes>:s]);'; XSDValidateMethodImplementationAttrib = ' CreateRequiredAttributes(Self, [%<RequiredAttributes>:s]);';
XSDValidateMethodImplementationSort = ' SortChildNodes(Self, [%<SortOrder>:s]);'; XSDValidateMethodImplementationSort = ' SortChildNodes(Self, [%<SortOrder>:s]);';
XSDValidateMethodImplementationSortNewLine = #13#10 + ' ';
XSDValidateMethodImplementationEnd = 'end;' + CrLf; XSDValidateMethodImplementationEnd = 'end;' + CrLf;