[gsilvei]

Hola,mi idea es crear un xml para cada registro que hago nuevo.
Ejemplo:

Tabla Alumno
Cod
Nombre

Tabla Programa
id
Cod_alumno
Nombre
Exercicio
Fecha

Registro un programa para un alumno,
cada alumno puede tener n cantidad de programas,
es ahi que necesito crear un xml para cada programa.
Intente utilizar el codigo de b3nshi que encontre, y da algunos errores, creo pq falta declarar, algunas lineas que no se a que se refieren

Código Delphi [-]
 
var
i: integer;
ndia, nage, nhor, nact: IXMLNode;
begin
{Guardo la actividad}
  xml1.filename := ''; //porq uso el mismo componente para abrir, se puede crear en tiempo de ejecucion y este problema no apareceria
 xml1.Active := True;
  //Ahora si creo el xml
  xml1.Version := '1.0';
 nage := Xml1.AddChild('Agenda');
 for i := 0 to agenda.Items.Count - 1 do
   begin
       case plan.Items[i].Level of
         0:begin ndia := nage.AddChild('Dia'); ndia.Attributes['Text']:= agenda.Items[i].Text; end;
         1:begin nhor := ndia.AddChild('Horario'); nhor.Attributes['Text'] := agenda.Items[i].Text;end;
         2:begin nact := nhor.AddChild('Actividad'); nact.Attributes['Text'] := agenda.items[i].Text; end;
        end;
   end; //Fin del for
  //ahora si guardo el archivo xml
  xml1.SaveToFile('agenda\' + trim(enom.text) + '.ext');
  xml1.active:= false;
end; //Fin del procedimiento q crea el fichero

marque en color rojo lo que no esta declarado,
gracias por la ayuda,
Saludos
Guillermo