Fórum DELPHI COM XML ENCADEADO #587341

Uses Xml.xmldom, Xml.XMLIntf, Xml.Win.msxmldom, Xml.XMLDoc;

procedure TfrmTeste.btn1Click(Sender: TObject);
var
  XMLTeste :  TXMLDocument;
  Root, NodeRec : IXmlNode;
  I : Integer;
begin
  //Cria o arquivo XML
  XMLTeste := TXMLDocument.Create(Application);
  XMLTeste.Active := False;
  XMLTeste.XML.Clear;

  //Preenche o cabeçalho do XML contendo os dados padrões
  XMLTeste.Options := [doNodeAutoIndent];
  XMLTeste.Active := True;
  XMLTeste.Encoding := 'UTF-8';
  XMLTeste.Version := '1.0';

  //Adiciona a estrutura principal
  Root := XMLTeste.addChild('DADOS');
  //Adiciona a estrutura secundária dos documentos
  with Root.AddChild('DOCUMENTOS') do
    begin
      //Neste ponto você vai adicionar um Loop do seu
      //componente de dados para preencher o campo código

      for I := 1 to 20 do
        begin
          AddChild('CODIGO').NodeValue := I;
        end;
    end;

  XMLTeste.SaveToFile('.\\Texte.XML');
  XMLTeste.Free;
end;