Hola a todos, una vez necesitando ayuda del foro,
estoy trabajando un DBGrid y un TClienteDataSet para salvar en un XML, este es un pedazo de mi codigo:
Código Delphi
[-]
procedure TFormCprograma.AntesdeSalvar;
var
dt_normal : TDateTime ;
dt_soh_numero : string ;
begin
dt_normal := StrToDate(dt_inicio.text) ;
dt_soh_numero := formatdatetime('DDMMYYYY',dt_normal);
XEdit3.text := (IntToStr(alumno.value)+trim(nome.text)+dt_soh_numero);
TClientDataSet.SaveToFile('C:\Academia\xml\' + trim(XEdit3.text) + '.xml');
end;
Hasta ahi todo bien, una vez que salvo mi registro, el crea el XML,
ahora el problema es cuando cierro la aplicacion y llamo el
LoadFromFile
Código Delphi
[-]
TClientDataSet.LoadFromFile('C:\Academia\xml\' + trim(XEdit3.text) + '.xml);
Me carga en el DBGrid el XML,
duplicado.
Si mi registro salve con 2 datos, cuando cierro la aplicacion y la abro nuevamente..me aparecen 4 registros, lo extraño es que mientras no cierro la aplicacion, funciona bien.
Alguien me podrian decir si estoy errando en alguna parte del codigo.
Gracias,
Saludos,
Guillermo