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


0