Delphi no me abre el archivo

[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;