Pascal/Turbo Pascal - problema con units propias

 
Vista:

problema con units propias

Publicado por lara (8 intervenciones) el 05/06/2006 01:57:25
Hola, a ver si alguien me puede ayudar.. por favor...
estoy haciendo un programa en el cual tengo que declarar units propias y la declaro pero despues cuando la voy a usar no me lo reconoce.
Paso el Código para ver si me entienden mejor. Saludos y Gracias. Lara.

ESTA ES LA PRIMER UNIT
Unit LGrande; {esta es la lista que contiene todos los vuelos...}
Interface {es la que permite conectar esa unidad con otra unidad y programas}
Uses Crt,Lchica; {lista de librer¡as a usar}
Const
maxvuelos=20;
Implementation {definisiones de funciones y procedimientos}
type
Tclave= string[13]; {esta es la clave que se usa para concatenar fecha + vuelo}
TDatoV = record {registro declarado para la lista grande}
Clave: tclave; {fecha+vuelo}
Capacidad: integer;
CantOcup: integer;
Destino: string[30];
ListaC: TlistaP; {lista chiquita de pasajeros} ESTO ES LO QUE NO RECONOCE!!!!!
end;
TlistaV = record {tipo de dato de la lista de vuelos}
listita: array[1..maxvuelos] of TDatoV; {declaraci¢n de la lista}
tope: 1.. maxvuelos; {indice de f¡n est tico(porque tiene un m ximo)}
actual: 1..maxvuelos; {indice que se va a usar para indicar la posici¢n actual}
end;
Var
L: TlistaV;

ESTA ES LA SEGUNDA UNIT

Unit LChica; {esta es la lista que contiene todos los pasajeros de cada vuelo...}
Interface
Uses crt, fechas;
const
maxpas=50;
Implementation
type
Tclave2 = string[8];
TDatoP= record {registro de datos del pasajero}
Clave2: Tclave2; {es el documento del pasajero}
CodOp: integer; {este es el c¢digo de operaci¢n}
FechaOper:Tfecha;
end;
TlistaP = record {tipo de dato de la lista de pasajeros}
listita: array[1..maxpas] of TDatoP; {declaraci¢n de la lista}
tope: 1.. maxpas; {indice de f¡n est tico(porque tiene un m ximo)}
actual: 1..maxpas; {indice que se va a usar para indicar la posici¢n actual}
end;
Var
L: TlistaP;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema con units propias

Publicado por Diego Romero (996 intervenciones) el 05/06/2006 07:35:24
Lara.
Tu problema es este. En la Unit LChica tienes definida la estructura TListaP en la sección implementation cuando debería estar en la Interface para que sea accesible "desde afuera".
De la misma manera veo que en la unit LGrande no tienes nada en la Interface, no podrás usar ninguna estructura desde otras units o programas si no pones algo allí.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problema con units propias

Publicado por Lara (8 intervenciones) el 05/06/2006 15:43:12
Gracias, voy a probar lo que me dijiste...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar