SaveRVF return false. I do not know the reason. Any option or Property may cause the problem?
Code: Select all
FormUnidad1.rveSource.Clear;
if not FormUnidad1.rveSource.LoadRVF('HipoNorma.jms')
then begin
Application.MessageBox('Error leyendo el fichero "HipoNorma.jms".'+#13+
'No se encuentra o no se puede leer.','Error',
MB_OK or MB_ICONSTOP);
NomFichTablaHipo:='HipoNorma.jms'; // Declarado global en Comunes para usar en Unidad1
Close;
end;
if not FormUnidad1.rveSource.SaveRVF(NomFichTablaHipo,false)
then begin
Application.MessageBox('No se puede grabar la hipóteis por un error de disco.'+#13+
'Cierre el Editor y salga sin grabar.'
,'Error',
MB_OK or MB_ICONSTOP);
Exit;
end;