SoloCodigo

Oye sigo teniendo un problema, y es que en el ads tengo funciones y procedimientos que trabajan con parametros de entrada y/o salida de tpFicheroSecuencialFavoritos:

   procedure AnyadirDesdeFichero(f: in out S_Favoritos.file_type;
                                 g: in out tpFicheroTexto);

No se como definir f en el .ads si no defino antes el tipo tpFicheroSecuencialFavoritos.
Tampoco lo pued definir (o al menos no se) como private, porque se define como subtipo, y no como tipo. Como se podria solucionar?

Hola a todos! Soy nuevo en este foro. Le he estado echando un ojo y me parece q esta de p.m.  Tengo un problema con una practica, pero no os asusteis, es solo un problemilla:

Necesito crear un package de esos aparte no? Y este necesita trabajar con tipos secuenciales de datos de tipo X (en mi caso tpFavorito)

al ser:

with
use
generic
package
  private
    type
end package

y el tema es insertar esto:

  -> package Sequential_Favoritos is new ada.sequential_io(tpFavorito);
  -> use Sequential_Favoritos;
  -> subtype tpFicheroFavoritos is Sequential_Favoritos.file_type;

Si el tpFavorito esta definido como private... donde defino lo demas?

el package Sequential_Favoritos is new ada.sequential_io(tpFavorito); me supongo que sera dentro del private y el subtype, al no ser un type, sera despues de package Nombre is. El problemas es el use, que no se donde meterlo para que se me haga visible todo y correcto. Una ayuda plis