Pascal/Turbo Pascal - Estructura de Seccion Case Dentro de Type

   
Vista:

Estructura de Seccion Case Dentro de Type

Publicado por Luis Matheus (7 intervenciones) el 03/11/2007 01:03:12
tengo esta estructura predefinida:

Const
NPVP = 3;
NCOS = 3;
KC = 15; { Producto }
KN = 40;
KM = 10; { Multiple }
KR = 15;
NMes = 13;
EstI = 12;
MaxF = 40; { Maximo de campos }
Type
RegCampos = Record
Name: String[15];
TipoF: Char;
Len,
Max,
Dec,
Need,
MaskI: Byte;
InitB: Word;
Activo,
InfoOn: Boolean;
Nivel: Byte;
Dummy: Array[1..2] Of Byte;
End;

RegArchivo = Array[1..MaxF] Of RegCampos;
RegConfArchivo = Record
SizeRec,
NroField: Word;
MaxTl: Byte;
Field: RegArchivo;
End;
Real48 = Real;
SmallInt = Integer;
ArrayPrecio = Array[1..NPVP] Of Real48;
ArrayCosto = Array[1..NCOS] Of Real48;
{*-----------------------------------------------------------------*}
RegSplProducto = Record
***Case Byte Of
***0: ( Conf: RegConfArchivo);
***1: ( Codigo: String[KC];
Departa: String[KM];
Descripcion: Array[1..3] Of String[KN];
Refere: String[KR];
Marca: String[20];
Unidad: String[3];
TipoP: Char;
UsoI,
Serial,
ComiDept,
Compuesto: Boolean;
IVAP: Real48;
DiasE: SmallInt;
Exento: Boolean;
NeedBalanza: Boolean;
UsaEmp: Boolean;
EsPorcent: Boolean;
ImpuestoI,
CantPedida,
CantCompro: Real48;
CostoPrd: ArrayCosto;
PVP: ArrayPrecio;
FechaUC,
FechaUV: String[8];
ExistMi,
ExistMa,
Existencia: Real48;
Estadistics: Array[1..NMes,1..EstI] Of Real48;
Empaque,
ExUnidades,
CostoUnidad,
PrecioUnidad: Real48;
OUnidad: String[3];
FlagContab: Boolean;
CtasContab: Array[1..6] Of String[25];
TieneOferta,
TieneTalla,
TieneColor,
TieneLote: Boolean;
Dummy2: Array[1..72] Of Byte;
);
End;

RegProducto = Record
Status: LongInt;
Special: RegSplProducto;
DataArea: Array[1..1] Of Byte;
End;

alguien podria decirme como manejar esa estructura maracada como(***) dentro de un fichero ya que dentro de la definicion existe un case y la verda q cuando intento leer el archivo me da error lo sabria agradecer a quien me pueda ayudar...
msn: hackers690@hotmail.com
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:Estructura de Seccion Case Dentro de Type

Publicado por Diego Romero (997 intervenciones) el 05/11/2007 15:28:35
Lo que has marcado con (***) es un registro variante (perfectamente válido).
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:Estructura de Seccion Case Dentro de Type

Publicado por Luis Matheus (7 intervenciones) el 05/11/2007 23:24:50
lo que he marcado con (***0 es para denotar la estructura q alguien me ayude a como manejar ese tipo de estructura...
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:Estructura de Seccion Case Dentro de Type

Publicado por Diego Romero (997 intervenciones) el 06/11/2007 04:10:50
Ya lo sé. Lo de registro variante lo puedes encontrar en cualquier manual de Pascal.
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:Estructura de Seccion Case Dentro de Type

Publicado por Luis Matheus (7 intervenciones) el 06/11/2007 04:26:01
he buscado en todos lados y nada...
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:Estructura de Seccion Case Dentro de Type

Publicado por Luis Matheus (7 intervenciones) el 06/11/2007 04:39:49
aja y como lo manejo tu sabes podrias ayudarme...
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:Estructura de Seccion Case Dentro de Type

Publicado por Eliezer herrera  (1 intervención) el 26/03/2009 17:51:37
yo estudio sistemas y estoy viendo array en pascal y la verdad que no se de qeu trata el array no se como funciona crees que me puedes ayudar?
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:Estructura de Seccion Case Dentro de Type

Publicado por ELX (2 intervenciones) el 31/05/2009 15:36:13
Tengo como dos meses buscando y nada, ni el libros ni en la web. Espero me puedan dar algo de luz.

Si yo tengo:

PROGRAM NUMEROS;
USES CRT;
VAR OPCION : INTEGER;

BEGIN
CLRSCR;
WRITE('INGRESA UN NUMERO ENTRE 1 Y 9 ');
READLN(OPCION);
CASE OPCION OF
1 : WRITELN('UNO');
2 : WRITELN('DOS');
3 : WRITELN('TRES');
4 : WRITELN('CUATRO');
5 : WRITELN('CINCO');
6 :WRITELN('SEIS');
7 : WRITELN ('SIETE');
8 : WRITELN('OCHO');
9 : WRITELN('NUEVE');
ELSE WRITELN('EL NUMERO NO ES ENTRE 1 Y 9');
END; {DEL CASE}
READKEY;
END.

Como se usa en vez de una variable "OPCION" un byte
Ejemplo:

Case byte of
0: "xxx"
1: "yyy"

Como yo instruyo que seleciones el 0 o seleciones el 1
?????
Gracias
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