Delphi no me abre el archivo

[Valee]

Hola a todos. Tengo que hacer un proyecto para programacion. Hay que hacer el fixture del mundial. La primer parte consiste en cargar los paises que fueron clasificados y ademas hay que mostrarlos.
Cuando cargo los datos lo hace perfecto, pero cuando quiero mostrar me tira un error de asignacion de archivo "I/O 102 error". El error me lo marca en el abrir metodo, pero la verdad es que nose porque. Si se pudo abrir cuando se cargo, porque no se puede cuando hay que mostrar¿?
Espero que me puedan ayudar. Aca les dejo adjunto los codigos mas una foto del error que me tira. Muchas gracias! Saludos

[Casimiro Noteví]

Por favor, no crees nuevos hilos para un mismo tema. Síguelo en el que empezaste.
Además, no olvides pone títulos descriptivos a tus preguntas, gracias.
No olvides nuestra guía de estilo.

[ecfisa]

Hola Valee.

Empezado por Valee

Hola Ecfisa, el crear método lo creo en el formulario principal, por eso no lo creo antes del abrir método, sino me reescribe y me borra los datos que fueron guardados. El error que me tira es EInOutError I/O error 102.

Ahora viendo el código de error (que podes revisar aquí: Input-Output Errors), te puedo afirmar que los archivos no están asignados al momento de intentar abrirlos con el procedimiento AbrirMe.

Lamento no haber podido abrir el adjunto con el código pero te sugiero hacer un seguimiento poniendo un Break Point y usar Trace Into (F7) para verificar que se estén asignando los archivos al momento de ser abiertos.

Aunque sin dudas, ese error se eliminaría agregando sólo una línea:

Código Delphi [-]
...
begin
  ListBox1.Clear;
  CrearMe(Me); // <- ESTA LÍNEA
  AbrirMe(Me);
  ...

Sólo proba agregando esa línea y comentanos si el error 102 sigue apareciendo.

Saludos

[Valee]

Hola Ecfisa, no era eso. Era un problema de libreria. De todas formas gracias por la ayuda!!!
Saludos =)

[ecfisa]

Hola Valee.

Pude abrir tu archivo en este equipo, aunque tuve que quitar algunas referencias a unidades y archivos que no estaban en el comprimido para poder ejecutarlo. Y tál como te mencioné en el mensaje anterior, el error 102 desapareció al llamar al procedimiento CrearMe antes de AbrirMe.

Saludos

[Casimiro Noteví]

Empezado por ecfisa

el error 102 desapareció al llamar al procedimiento CrearMe antes de AbrirMe.

Es lógico

[[duilioisola]]

Mas allá de lo que mencionan con respecto a abrir y cerrar archivos con los métodos AssignFile/CloseFile, lo que yo veo es que el método AbrirMe confía en que el archivo está asignado y solo hace un Reset para poner el puntero al principio.
El método CrearMe asigna el archivo y al final lo cierra, por lo que cualquier operación posterior daría un error.

En este caso, si se llama primero a CrearMe y luego a Abrirme, el Reset se tratará de realizar sobre un archivo cerrado.

Código Delphi [-]
Procedure CrearMe (var Me: TipoMe);
var
  RC: TipoRegControl;
  RB: TipoRegBandera;
begin
  assign (Me.B,_RutaArchivo+_ArchivoBanderas);
  assign (Me.D,_RutaArchivo+_ArchivoDatos);
  assign (Me.C,_RutaArchivo+_ArchivoControl);
[...]
  // Luego de crear los archivos, se cierran
  close (Me.B);
  close (Me.D);
  close (Me.C);
  {$I+}
end;

Procedure AbrirMe (var Me: TipoMe);
begin
  // En este punto no podemos asegurar si se el archivo está abierto o no
  // Confiamos en que si
  reset (Me.B);
  reset (Me.D);
  reset (Me.C);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  X: TipoPosicion;
  Cant: TipoCantidad;
  RD: TipoRegDatos;
begin
  ListBox1.Clear;
  // En este punto no podemos asegurar si se el archivo está abierto o no
  // El método CrearMe lo habría cerrado si fue llamado anteriormente
  // Esto generará un error.
  AbrirMe (Me);
  [...]
  CerrarMe (Me);
end;