FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Range Error
Ke tal.
Tengo un problema con un programa ke estoy haciendo, lo ke hace el programa es guardar datos utilizando un savedialog, el problema es ke cuando termina de guardar y kiero volver a guardar otros datos me aparece este error: "ERange Error ... Range Check Error". Como soluciono esto?... tengo ke limpiar mediante un clear o algo asi? Gracias por cualkier sugerencia. |
#2
|
|||
|
|||
hola
lo que necesitamos es un poco de codigo, para saber como lo guardas. lo mas probable es que el error este en el codigo del SaveDialog, ponlo aqui y veremos que pasa un saludo |
#3
|
|||
|
|||
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. |
#4
|
||||
|
||||
A simple vista no se ve que trabajes con nada que pueda producir este error... ¿Haces algo en algún evento que no has puesto aquí?.. ¿Que sucede cuando muestras el Form3?
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|