Error 103 I/O

[titooo]

Buenos días chicos, les comento mi problema. estoy trabajando con Metodos estructurales.
Tengo 2 librerias , una de doble enlace y otra de arbol.
El problema es el siguiente, tengo que capturar desde un formulario, todos los codigos y descripciones de Rubros almacenados (que se encuentran en otro formulario ) dentro de un combobox al entrar en él.

Este es el codigo

Código Delphi [-]
procedure TArticulo.ComboBox1Enter(Sender: TObject);
var
pos, ult:tipo_pos;
reg: tipo_reg_datos;
rubro_aux:tipo_me;
begin
   combobox1.Clear;
   pos:=0;
   doble_enlace_rubros.Abrir_Me(rubro)
   ult:= doble_enlace_rubros.Ultimo(rubro);
   while pos<=ult do
   begin
   doble_enlace_rubros.Capturar_Info(rubro,pos,reg);
   articulo.ComboBox1.AddItem(inttostr(reg.Cod_rubro)+ '   '+ reg.Nom_rubro,articulo.ComboBox1);
   pos:=pos+1;
   end;

end;

Comento que el metodo "Rubro" lo creo en el FormCreate, y en las units utilizadas ya tengo declaradas la libreria de doble enlace y la del formulario de donde utilizo y creo "Rubro"

El error que salta es el I/O 103

Espero sepan disculpar las molestias y que puedan ayudarme.

Saludos

[ecfisa]

Hola titooo.

El error 103 ( File not Open ) se produce generalmente por intentar leer o escribir sobre un archivo que no fué abierto. También podría provocarse por intentar escribir en un archivo de texto abierto con el procedimiento Reset.

Viendo el código que publicaste, es muy probable que el error se produzca en el método Abrir_Me, en la línea:

Código Delphi [-]
doble_enlace_rubros.Abrir_Me(rubro)

Sería interesante que nos mostrases el código de ese método ( o donde el archivo es abierto ).

Saludos

[titooo]

Gracias por responder.

Disculpen, no agregue ese detalle.

Código Delphi [-]
Procedure Abrir_Me (Var Me:Tipo_Me);
Begin
    Reset(Me.Control);
    Reset(Me.Datos);
End;

Ese es el proceso. No se si me falta algun paso previo o que puede ser.

Observe las declaraciones de variables y de unidades. Pero esta todo bien porque no muestra error de conexion o algo por el estilo.

Espero respuestas y gracias

[titooo]

Cuando ejecuto en "PASO A PASO" (F7) salta un error en Application initialize, nose si tendrá que ver con mi problema o no.