...
TaxonomyNodeList.reset;
TaxonomyNode := TaxonomyNodeList.nextNode;
NoOfNodes := TaxonomyNodeList.length;
Progress := 0;
NewProgress := 0;
// Delete the following lines.
i := 0;
WHILE NOT ISCLEAR(TaxonomyNode) DO BEGIN
IF TaxonomyNode.nodeName= STRSUBSTNO('%1element',xsdPrefix) THEN
// End of the lines.
HandleElement(TaxonomyNode,0,-1);
i := i + 1;
NewProgress := ROUND(i / NoOfNodes * 10000,1);
IF (Progress = 0) OR (NewProgress >= Progress + 100) THEN BEGIN
ProgressBox.UPDATE(2,NewProgress);
...
...
TaxonomyNodeList.reset;
TaxonomyNode := TaxonomyNodeList.nextNode;
NoOfNodes := TaxonomyNodeList.length;
Progress := 0;
NewProgress := 0;
// Add the following lines.
i := 0;
WHILE NOT ISCLEAR(TaxonomyNode) DO BEGIN
IF TaxonomyNode.nodeName IN[STRSUBSTNO('%1element',xsdPrefix),STRSUBSTNO('%1element',DocumentPrefix),STRSUBSTNO('element')] THEN
// End of the lines.
HandleElement(TaxonomyNode,0,-1);
i := i + 1;
NewProgress := ROUND(i / NoOfNodes * 10000,1);
IF (Progress = 0) OR (NewProgress >= Progress + 100) THEN BEGIN
ProgressBox.UPDATE(2,NewProgress);
...
...
END;
TaxonomyNode := TaxonomyNodeList.nextNode;
END;
SortPresentationOrder(0,0,'');
// Update from existing data, if any
ProgressBox.UPDATE(1,STRSUBSTNO(Text008,XBRLSchema."XBRL Taxonomy Name"));
ProgressBox.UPDATE(2,0);
Progress := 0;
NewProgress := 0;
...
...
END;
TaxonomyNode := TaxonomyNodeList.nextNode;
END;
SortPresentationOrder(0,0,'');
// Add the following lines.
IF TempXBRLLine.COUNT = 0 THEN
EXIT;
// End of the lines.
// Update from existing data, if any
ProgressBox.UPDATE(1,STRSUBSTNO(Text008,XBRLSchema."XBRL Taxonomy Name"));
ProgressBox.UPDATE(2,0);
Progress := 0;
NewProgress := 0;
...