Tema: TXMLDocument
Ver Mensaje Individual
  #15  
Antiguo 14-05-2007
Avatar de juangiron
juangiron juangiron is offline
Miembro
 
Registrado: ene 2007
Posts: 26
Reputación: 0
juangiron Va por buen camino
Question Hola Dec

que pena mi ignorancia, pero es que he analizado tu codigo y la verdad es que no logro crear el archivo como yo quiero


Código Delphi [-]
procedure TFrmPrincipal.ToolButton4Click(Sender: TObject);
var
  FDocXml: TXMLDocument;
  nodoClave, nodoSeccion: IXMLNode;

begin
SaveDialog1.Filter:='Archivo XML(*.xml)|*.XML';
if SaveDialog1.Execute then
begin
   FDocXml :=  TXMLDocument.Create(Self);
   FDocXml.Options := [doNodeAutoIndent];
   FDocXml.Active:=true;
   nodoSeccion := FDocXml.AddChild('PERSONA');
   nodoClave := nodoSeccion.AddChild('Nombre');
   FDocXml.SaveToFile(SaveDialog1.FileName+'.xml');;

end;
end;


lo que necesito crear es algo asi

<PERSONA>
<NOMBRE> JUANK <NOMBRE/>
<OTROVALOR>1983<OTROVALOR/>
<PERSONA/>

se que el codigo esta mal, pero te juro que he buscado en muchas partes y no logro encontrar un ejemplo asi de basico

te agradeceria si me ayudas
Responder Con Cita