duda con un programita

[ecfisa]

Hola maxi915.

Opino del mismo modo que que roman.

También aprovecho para desaconsejarte el antiguo uso de {$IOCHECKS ON}/{$IOCHECKS OFF} en favor de [try/except].

Código Delphi [-]
procedure crearMeDatos(var meDatos:tipomeDatos);
var
 rc: tiporegcontroldatos;
begin
  AssignFile(medatos.control,_ruta + _archcontrol);
  try
    Reset(medatos.control);
  except
    Rewrite(metadatos.control);
    rc.primero  := _posNula;
    rc.ultimo   := _posNula;
    rc.borrados := _posNula;
    rc.total    := 0;
    Write(medatos.control,rc);
  end;
  Close(medatos.control);

  AssignFfile(medatos.datos,_ruta+_archdatos);
  try
    Reset(medatos.datos);
  except
    Rewrite(medatos.datos);
  end;
  Close(medatos.datos);
end;

Saludos.