bueno creo que lo hice...
Código Delphi
[-]
procedure TFrmPrincipal.ToolButton4Click(Sender: TObject);
var
FDocXml: TXMLDocument;
nodoClave, nodoSeccion, nodoObjeto: IXMLNode;
i:Integer;
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('OBJETOS');
for i := 0 to High(ArrayObjetos) do
begin
nodoClave := nodoSeccion.AddChild('Objeto');
nodoObjeto := nodoClave.AddChild('Nomre');
nodoObjeto.Text := ArrayObjetos[i].getNombreObj;
nodoObjeto := nodoClave.AddChild('año');
nodoObjeto.Text := ArrayObjetos[i].getaño;
end;
FDocXml.SaveToFile(SaveDialog1.FileName+'.xml');;
end;
end;
pero creo que no me sirve por que dentro del array de objetos tengo valores que no son string como Ticon,
hay alguna forma de guardar el objeto completo??
es decir algo asi como serializarlos