|
Gracias. Acá te dejo parte del código:
DEFINICION DE VARIABLES
***********************
Archivo,ArchivoCorrientes,ArchivoPotencias,ArchivoTHD,
ArchivoTransientes,ArchivoArmonicos: File of Double;
nombreArchivo,NombreCorrientes,NombrePotencias,NombreTHD,
NombreTransientes,NombreArmonicos: String;
ASIGNACION
**********************
AssignFile(Archivo,nombreArchivo);
Rewrite(Archivo);
AssignFile(ArchivoTHD,nombreTHD);
Rewrite(ArchivoTHD);
AssignFile(ArchivoPotencias,NombrePotencias);
Rewrite(ArchivoPotencias);
AssignFile(ArchivoTransientes,NombreTransientes);
Rewrite(ArchivoTransientes);
AssignFile(ArchivoArmonicos,nombreArmonicos);
Rewrite(ArchivoArmonicos);
************************************
PROCEDIMIENTO DE EJECUCION DE SAVEDIALOG
************************************
procedure TForm1.Button2Click(Sender: TObject);
var
begin
if (form8.radiobutton1.checked=false) and (form8.radiobutton2.checked=false) then begin
ShowMessage('Necesita seleccionar una medición monofásica o trifásica, para esto '+
'presione el botón configurar. Si no desea continuar, presione Cancelar');
exit;end;
SaveDialog1.Title:='Almacenamiento de datos';
if SaveDialog1.Execute then begin
NombreArchivo:=SaveDialog1.Filename;
NombreTHD:=NombreArchivo + 'THD';
NombreArmonicos:=NombreArchivo + 'Armonicos';
NombrePotencias:=NombreArchivo + 'Potencias';
NombreTransientes:=NombreArchivo + 'Transientes';
Form3.Show;
Form1.Enabled:=False;
end;
end;
****************************
TERMINO DE ALMACENAMIENTO *
****************************
procedure TForm3.FormOnClose(Sender: TObject; var Action: TCloseAction);
begin
Timer1.Enabled:=False;
CloseFile(Archivo);
CloseFile(ArchivoTHD);
CloseFile(ArchivoPotencias);
CloseFile(ArchivoTransientes);
CloseFile(ArchivoArmonicos);
end;
//**********************************
No he podido encontrar que estoy haciendo mal. Gracias por cualkier ayuda.
|