procedure ExPortNodeQuantifyComponent1(aCDS: TClientDataSet; aCurrNode: TXMLNode);
var
mStream: TMemoryStream;
I: Integer;
vNode: TcxTreeListNode;
NativeXml: TNativeXml;
vXMLNode, rootNode: TXmlNode;
begin
mStream:=TMemoryStream.Create;
NativeXml := TNativeXml.CreateName('aaa');
try
NativeXml.EncodingString := 'UTF-8';
NativeXml.Utf8Convert := True;
NativeXml.XmlFormat := xfReadable;
NativeXml.BinaryEncoding := xbeBinHex;
// rootNode := NativeXml.Root;
for I := 0 to SGrid_QuantifyList.Count -1 do
begin
vNode := SGrid_QuantifyList.Items[I];
aCDS.Append;
aCDS.FieldByName('cSetOfPeakTime').AsString := vNode.Texts[colcom_cSetOfPeakTime.ItemIndex];
aCDS.FieldByName('cComponentName').AsString := vNode.Texts[colcom_cComponentName.ItemIndex];
aCDS.FieldByName('cComponentNumber').AsString := vNode.Texts[colcom_cComponentNumber.ItemIndex];
aCDS.FieldByName('cCorrectionFactor').AsString := vNode.Texts[colcom_cCorrectionFactor.ItemIndex];
aCDS.FieldByName('cConcentration').AsString := vNode.Texts[colcom_cConcentration.ItemIndex];
aCDS.FieldByName('cInteriorLabel').AsString := vNode.Texts[colcom_cInteriorLabel.ItemIndex];
aCDS.FieldByName('cPeakStart').AsString := vNode.Texts[colcom_cPeakStart.ItemIndex];
aCDS.FieldByName('cPeakEnd').AsString := vNode.Texts[colcom_cPeakEnd.ItemIndex];
aCDS.FieldByName('cGroupTotal').AsString := vNode.Texts[colcom_cGroupTotal.ItemIndex];
aCDS.FieldByName('iid').AsString := vNode.Texts[colcom_iid.ItemIndex];
aCDS.FieldByName('cGroupID').AsString := vNode.Texts[colcom_cGroupID.ItemIndex];
aCDS.FieldByName('cTheSameBatchID').AsString := vNode.Texts[colcom_cTheSameBatchID.ItemIndex];
aCDS.Post;
vXMLNode := aCurrNode.NodeNew('aaa' + IntToStr(I)) ;
vXMLNode.WriteAttributeString('cSetOfPeakTime', vNode.Texts[colcom_cSetOfPeakTime.ItemIndex]);
vXMLNode.WriteAttributeString('cComponentName', vNode.Texts[colcom_cComponentName.ItemIndex]);
vXMLNode.WriteAttributeString('cComponentNumber', vNode.Texts[colcom_cComponentNumber.ItemIndex]);
vXMLNode.WriteAttributeString('cCorrectionFactor', vNode.Texts[colcom_cCorrectionFactor.ItemIndex]);
vXMLNode.WriteAttributeString('cConcentration', vNode.Texts[colcom_cConcentration.ItemIndex]);
vXMLNode.WriteAttributeString('cInteriorLabel', vNode.Texts[colcom_cInteriorLabel.ItemIndex]);
vXMLNode.WriteAttributeString('cPeakStart', vNode.Texts[colcom_cPeakStart.ItemIndex]);
vXMLNode.WriteAttributeString('cPeakEnd', vNode.Texts[colcom_cPeakEnd.ItemIndex]);
vXMLNode.WriteAttributeString('cGroupTotal', vNode.Texts[colcom_cGroupTotal.ItemIndex]);
vXMLNode.WriteAttributeString('iid', vNode.Texts[colcom_iid.ItemIndex]);
vXMLNode.WriteAttributeString('cGroupID', vNode.Texts[colcom_cGroupID.ItemIndex]);
vXMLNode.WriteAttributeString('cTheSameBatchID', vNode.Texts[colcom_cTheSameBatchID.ItemIndex]);
end;
NativeXml.SaveToFile('C:\111.xml');
aCDS.DisableControls;
mStream.Clear;
if not aCDS.IsEmpty then
begin
aCDS.SaveToStream(mStream);
//XmlWriteStream(aCurrNode,CH_QuantifyComponentChildNode,mStream);
end;
aCDS.EnableControls;
finally
mStream.Free;
NativeXml.Free;
end;
end;