DataList            : TStringlist; 
  doc                 : IXMLDOMDocument; 
  root, child, child1 : IXMLDomElement; 
  text1, text2        : IXMLDOMText; 
  nlist               : IXMLDOMNodelist; 
  dataRecord          : String; 

function TForm1.makeXml(table: TTable): Integer; 
var 
  i   : Integer; 
  xml,temp : String; 
begin 
 try 
  table.close; 
  table.open; 
  xml  := table.TableName; 
  doc  := CreateOleObject('Microsoft.XMLDOM')
          as IXMLDomDocument; 
  //Set the root name of the xml
  file as that of the table name. 
  //In this case "country"
  root := doc.createElement(xml); 
  doc.appendchild(root); 
  //This while loop will go through the
  entire table to generate the xml file 
  while not table.eof do begin
   //adds the first level children , Records 
   child:= doc.createElement('Records'); 
   root.appendchild(child); 
   for i:=0 to table.FieldCount-1 do begin 
     //adds second level children 
    child1 := doc.createElement
              (table.Fields[i].FieldName); 
    child.appendchild(child1); 
    //Check field types 
    case TFieldType
    (Ord(table.Fields[i].DataType)) of 
    ftString: 
    begin 
     if Table.Fields[i].AsString ='' then 
      temp :='null'  //Put a default string  
     else 
      temp := table.Fields[i].AsString; 
    end; 

    ftInteger, ftWord, ftSmallint: 
    begin 
     if Table.Fields[i].AsInteger > 0 then 
      temp := IntToStr(table.Fields[i].AsInteger) 
     else 
      temp := '0'; 
    end; 

    ftFloat, ftCurrency, ftBCD: 
    begin 
     if table.Fields[i].AsFloat > 0 then 
      temp := FloatToStr(table.Fields[i].AsFloat) 
     else 
      temp := '0'; 
    end; 

    ftBoolean: 
    begin 
     if table.Fields[i].Value then 
      temp:= 'True' 
     else 
      temp:= 'False'; 
    end; 

    ftDate: 
    begin 
     if (not table.Fields[i].IsNull) or 
        (Length(Trim(table.Fields[i].AsString))
        > 0) then 
      temp := FormatDateTime
               ('MM/DD/YYYY',
               table.Fields[i].AsDateTime) 
     else 
      //put a valid default date 
      temp:= '01/01/2000'; 
    end; 

    ftDateTime: 
    begin 
     if (not table.Fields[i].IsNull) or 
        (Length(Trim(table.Fields[i].AsString))
        > 0) then 
      temp := FormatDateTime
              ('MM/DD/YYYY hh:nn:ss', 
              table.Fields[i].AsDateTime) 
     else 
      //Put a valid default date and time 
      temp := '01/01/2000 00:00:00'; 
    end; 

    ftTime: 
    begin 
     if (not table.Fields[i].IsNull) or 
        (Length(Trim(table.Fields[i].AsString))
        > 0) then 
      temp := FormatDateTime
              ('hh:nn:ss', 
              table.Fields[i].AsDateTime) 
     else 
       //Put a valid default time 
      temp := '00:00:00';
    end; 
   end; 
    child1.appendChild(doc.createTextNode(temp)); 
  end; 
  table.Next; 
 end; 
  doc.save(xml+'.xml'); 
  memo1.lines.Append(doc.xml); 
  Result:=1; 
 except 
   on e:Exception do 
     Result:=-1; 
 end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 if makeXml(table1)=1 then 
   showmessage('XML Generated') 
 else 
   showmessage('Error while generating XML File'); 
end;

procedure TForm1.Button2Click(Sender: TObject); 
var 
   i,ret_val,count : Integer; 
   strData : String; 
begin 
  {
  Before inserting data in to the country table,
  make sure that the data in the generated xml
  file (country.xml) and country table (DBDEMOS)
  are different.
  }
  try 
   count:=1; 
   DataList:=TStringList.Create; 
   memo1.Clear; 
   doc := CreateOleObject('Microsoft.XMLDOM')
          as IXMLDomDocument; 
    //Load country.xml file 
    doc.load('country.xml'); 
    nlist:=doc.getElementsByTagName('Records'); 
    memo1.lines.append('Table Name  :country'); 
    memo1.lines.append('---------------------'); 
    for i:=0 to nlist.Get_length-1 do begin 
     travelChildren
        (nlist.Get_item(i).Get_childNodes); 
     //Removes the first character(,)
     //from dataRecord 
     strData:=copy(dataRecord,2,length(dataRecord)); 
     memo1.lines.append(strData); 
     dataRecord:=''; 
     ret_val:=insertintotable(Datalist); 
     if ret_val=1 then 
      memo1.lines.append
       ('Data inserted successfully.............!') 
     else if ret_val=-1 then 
     memo1.lines.append
     ('Error while updating.....Try again.....!'); 
     memo1.lines.append
     ('=======(Record no. :'+inttostr(count)+')'); 
     DataList.Clear; 
     count:=count+1; 
    end; 
   except 
     on e:Exception do 
       Showmessage(e.message); 
  end; 
end;

procedure TForm1.travelChildren
                 (nlist1:IXMLDOMNodeList); 
var 
   j:Integer; 
   temp:String; 
begin 
  for j:=0 to nlist1.Get_length-1 do begin 
  //node type 1 means an entity
  //and node type 5 means EntityRef 
  if((nlist1.Get_item(j).Get_nodeType= 1)
     or (nlist1.Get_item(j).Get_nodeType=5)) then 
    travelChildren
      (nlist1.Get_item(j).Get_childNodes) 
    //node Type 3 means a text node,
    //ie you find the data 
    else if(nlist1.Get_item(j).Get_nodeType=3) then 
    begin 
     temp:= trim(nlist1.Get_item(j).Get_nodeValue); 
     //this is for displaying a
     //single record on the memo
     dataRecord:=dataRecord+','+temp; 
     //Datalist will contain one record
     //after completing one full travel
     //through the node list 
     DataList.Add(temp); 
    end 
  end; 
 end; 

function TForm1.insertintotable
               (stpt:TStringList):Integer; 
var 
  i:Integer; 
begin 
  table1.close; 
  table1.open; 
  table1.Insert; 
  for i := 0 to stpt.Count - 1 do begin 
    table1.Fields[i].AsVariant:= stpt[i]; 
  end; 
  try 
    table1.post; 
    result:=1; 
  except 
    on E:Exception do 
      result:=-1; 
  end; 
end;