DataSet'i XML'e çeviren fonksiyon

DataSetToDOM ('customers', 'customer', XMLDoc, Table1);

procedure DataSetToDOM (RootName, RecordName: string;

XMLDoc: TXmlDocument; DataSet: TDataSet);

var

iNode, iChild: IXMLNode;

i: Integer;

begin

DataSet.Open;

DataSet.First;

// root

XMLDoc.DocumentElement := XMLDoc.CreateNode (RootName);

// add table data

while not DataSet.EOF do

begin

// add a node for each record

iNode := XMLDoc.DocumentElement.AddChild (RecordName);

for I := 0 to DataSet.FieldCount - 1 do

begin

// add an element for each field

iChild := iNode.AddChild (DataSet.Fields[i].FieldName);

iChild.Text := DataSet.Fields[i].AsString;

end;

DataSet.Next;

end;

end;