Ayuda registro de registros(programa pesadora)
Publicado por industrial (7 intervenciones) el 06/06/2014 11:12:10
Buenos dias.
Tengo que hacer un programa que funcione como una maquina pesadora de tres cabezas. Entonces tengo que hacer cuatro programas que se van juntando entre ellos. Ya he hecho los dos primeros que tratan de que tu metes el nombre y la composicion de cada carga y tolva.
Ahora lo que se me pide es: un tipo registro tpListaComposiciones que permita almacenar hasta diez posibles composiciones de producto (de tipo tpComposicion). Las composiciones se guardan en la tabla sin dejar huecos desde la posición 1 y ordenadas por su código identificativo. Inicialmente no habrá ninguna composición almacenada.
De momento meto una composicion y con una orden se muestra. Lo que necesito es que se guarden para que luego al iniciar un procedure que ya tengo se muestren en orden alfabetico todas las correctas que haya metido.
He pensado en algo asi
Pero no se si esta bien porque creo que el 10 limitaria la linea y no las composiciones que puedo hacer. Lo que no quiero es hacer un programa tipo:
Sino si se puede hacer con lo que he puesto antes y que con un for y un while vaya cambiando.
Gracias por su ayuda.
Tengo que hacer un programa que funcione como una maquina pesadora de tres cabezas. Entonces tengo que hacer cuatro programas que se van juntando entre ellos. Ya he hecho los dos primeros que tratan de que tu metes el nombre y la composicion de cada carga y tolva.
Ahora lo que se me pide es: un tipo registro tpListaComposiciones que permita almacenar hasta diez posibles composiciones de producto (de tipo tpComposicion). Las composiciones se guardan en la tabla sin dejar huecos desde la posición 1 y ordenadas por su código identificativo. Inicialmente no habrá ninguna composición almacenada.
De momento meto una composicion y con una orden se muestra. Lo que necesito es que se guarden para que luego al iniciar un procedure que ya tengo se muestren en orden alfabetico todas las correctas que haya metido.
He pensado en algo asi
1
2
3
4
5
6
7
8
9
10
11
12
type
tpComposicion = record
nombre:string;
c1:real;
c2:real;
c3:real;
end;
tpListaComposiciones = record
ncompos:0..10;
compos:array[0..10] of tpComposicion;
end;
Pero no se si esta bien porque creo que el 10 limitaria la linea y no las composiciones que puedo hacer. Lo que no quiero es hacer un programa tipo:
1
2
3
4
5
tpListaComposiciones=record
composicion1,composicion2,composicion3,composicion4,
composicion5,composicion6,composicion7,composicion8,
composicion9,composicion10:tpComposicion;
end;
Gracias por su ayuda.
Valora esta pregunta
0