FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Pasar valores entre variables tipo record
Hola amigos, voy a plantearos algo que me ha dejado perplejo.
Tengo un programa de quinielas hecho hace varios años en Delphi7. Ahora estoy modificando algunas cosas con motivo del nuevo pleno al 15. Guardo en un fichero los datos de cada jornada, en una variable tipo record. Voy leyendo los registros, según la jornada que voy a trabajar. Cuando tengo que modificar algún dato, utilizo algunas variables intermedias, para comparar si ha habido algún cambio. Dado que las variables las tengo declaradas con comas, cuando interesa utilizo la asignación: Paso los valores de la variable2 a un formulario de modificaciones. Hago las modificaciónes en la variable2 y luego las paso a la variable1, si inateresa. Esto lleva años funcionando correctamente. EL PROBLEMA Ahora he añadido algunas variables más en el record. SORPRESA Cuando intento rellenar el formulario con los datos de la variable2 en el evento OnShow, una parte de ellos no se rellenan. Al comparar las dos variables, me dice que los valores son distintos, por lo que he llegado a la conclusión de que no traspasa bien los valores de una a la otra. La asignación las variables está en el evento OnShow. De manera que si salgo del formulario de modificación varias veces y vuelvo a entrar, va asignando los valores poco a poco, hasta asignarlos todos. (¡¿?!) Esto me tiene perplejo...... Más aún cuando he comprobado los valores que no traspasa, antes de ponerlos en los distintos Edit del formulario, y he comprobado que no están. Pero ahí no queda la cosa, he utilizado otra variable asignada en el form de lectura de fichero y ¡Sí ESTÁN LOS VALORES COMPLETOS! Bien, me dije, pues voy a asignar los valores al leer el registro, a ver qué pasa. PUES TAMPOCO. Bueno, me dije, será el nombre: PUES TAMPOCO Bueno, me dije, el orden de declaración (una chorrada) PUES TAMPOCO Llevo 3 días revisando el código y no consigo ver el motivo de esto. Por favor, si alguien ha tenido esta experiencia o si puede aportarme alguna idea, (estoy abierto a probar cualquier cosa), se lo agradeceré infinitamente. Gracias por aguantar el rollo, pero no sabía explicarlo de otro modo. |
#2
|
||||
|
||||
Según entendí, cuando asignas una variable Record a otra variable Record, del mismo tipo, no todos sus campos se copian. ¿Es correcto?
¿Podrías mostrar la declaración de ese Record y el código donde haces las asignaciones? Por favor. |
#3
|
|||
|
|||
Gracias, Al González, por tu interés.
SI. has entendido correctamente. ESO ES LO ME TENÍA LOCO. Porque habia llegado a esa conclusión ERRÓNEA. Acabo de resolverlo, pero NO ENTENDERLO. Veamos: En el evento OnExit de cada Edit, tenía puesto, lógicamente, (para ahorrar traspasos entre los distintos Edit y las variables del Record), la asignación del valor del Edit al Record. Este evento se ejecutaba también, por supuesto, al asignar los primeros valores del Record a los distintos Edit. Evitando la ejecución del evento OnExit, mediante una boleana global, he conseguido que los valores se transfieran correctamente. Ahora viene mi "DESCOLOQUE MENTAL" ¿Por qué ha estado funcionando más de 7 años, con algunas corrrecciones y compilado con Delphi7, (como ahora) con el mismo evento OnExit? Supongo que para comprender éso hay que ser MUY EXPERTO, yo no. A pesar de todo, y visto lo visto, me queda un pequeño "come... come..." por dentro, que me genera una cierta inseguridad sobre si he resuelto correctamente el problema, y no va a resultar por otro lado. Bueno no me extiendo. Gracias, de nuevo, Al por tu interés. Si el problema sale por otro lado, ya te contaré. Saludos. |
#4
|
||||
|
||||
Cita:
Cuando gustes podrías mostrar algo de ese código y con gusto aquí habrá muchas manos dispuestas a ayudar en la investigación. Sólo tienes que hacernos saber con exactitud qué records son esos, cómo y dónde los asignas y qué versión de Delphi usas ahora. Código y claridad, si no fuera molestia. |
#5
|
|||
|
|||
Gracias Al.
Hasta ahora no me ha dado ningún problema, después de los cambios. El record es el siguiente.
La declaración de variables es esta:
y el evento OnExit ha quedado así después de los cambios:
La variable "EsUnaAsignacionMia" la pongo a True antes de asignar los valores a los distintos Edit. Y la cambio a False después de asignar los valores. Sigo sin entender por qué ha estado funcionando tantos años, si lo he compilado con la misma versión de Delphi, o sea con la versión Delphi7, que todavía conservo instalada en un ordenador más antiguo, para no complicarme la vida si tengo que hacer alguna modificación en algun programa viejo. Gracias por tus elogios, pero es cierto que soy muy meticuloso, pero sólo soy aficionado y tengo muchiiiiiisimo que aprender. Un Saludo. Última edición por Casimiro Notevi fecha: 29-08-2014 a las 18:31:46. |
#6
|
|||
|
|||
Bueno, no entiendo por qué ha salido una imagen que yo no he puesto conscientemente en la declaración de varibles. Vuelvo a copiarlo:
Última edición por Casimiro Notevi fecha: 29-08-2014 a las 18:32:23. |
#7
|
|||
|
|||
Volvió a ocurrir y pienso que es por utilizar la palabra DMier??, que lógicamente debe estar prohibida en el foro.
Código Delphi [-] var .... .... D, { Siempre lleva datos de la jornada en uso } DDup, { usado para la lectura de condiciones y base} dInter, { usado como intermediario para CambioDatJor} D2, { Siempre lleva datos de la primera leída o última grabada } DM..... { Sin inicializar para control anticopia } DATOS; .... Pido disculpas, pero es que yo en el programa la llamo así para entenderme. Saludos a todos. |
#8
|
||||
|
||||
Hola jhonalone.
Debe ser un problema en tu equipo... La palabra DMierda no está prohibida en este sitio y se lee perfectamente desde el mensaje #5 Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
||||
|
||||
Se ve bien
|
#10
|
||||
|
||||
Debe ser otra cosa, la palabra mierda no está prohibida. De hecho en el club se han publicado grandes tratados sobre ella.
|
#11
|
|||
|
|||
Gracias a todos. Me siento mejor.
En mi equipo, la palabra DATOS, la veo como ATOS. No sé si vosotros la veis correctamente. Saludos. |
#12
|
|||
|
|||
Ah! Solamente si está enmarcada como código Delphi.
Saludos. |
#13
|
||||
|
||||
Hola jhonalone
Seguramente debe ser algo en tu configuración:
Cita:
mierda comemierdas Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#14
|
||||
|
||||
Creo que es por las "caritas", tienes puesto un "dos puntos" delante de la "D" y eso es la carita riendo:
|
#15
|
||||
|
||||
Cita:
Estilo tradicional: Mi "terrible" estándar: Para mí, el tipo de dato expresado en la declaración de variables, campos, parámetros, etc. lleva el prefijo ":". Última edición por Al González fecha: 30-08-2014 a las 17:18:43. |
#16
|
||||
|
||||
Yo prefiero un término medio
|
#18
|
||||
|
||||
Y el noparse amigos?? donde dejamos el noparse??
[ delphi ] [ noparse ] [ /noparse ] [ /delphi ] Sobre el tema original, quizás sea por el uso de exit, quiero decir, algún caso concreto donde se salga por un Exit y no asigne el valor. Yo miraría el tabOrder de los controles y que todos tengan asignado el OnExit. Además mirar los casos raros, por ejemplo, sabemos que los SpeedButton no tienen foco, por tanto si el cursor está en un Edit y pulsas un Speedbutton, no se ejecutará el código del OnExit y ese valor no se transfiere. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#19
|
||||
|
||||
Siempre olvido la dichosa palabrita
|
#20
|
|||
|
|||
Gracias a todos, amigos.
El buen humor, que no falte. El código funciona, como ya os dije. No obstante tendré en cuenta las observaciones de LEPE. El tema de los dos puntos debe ser lo que comenta Casimiro de las caritas. Saludos. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar variables entre BPL y aplicacion | adeszeus | OOP | 3 | 04-07-2011 23:46:25 |
Pasar variables entre programas | Belaix | Varios | 5 | 24-11-2008 07:06:31 |
pasar un tipo de datos (array of record) entre aplicaciones | mauqu | Varios | 4 | 26-10-2007 20:04:31 |
pasar valores de variables de un form a otro | oscarpinog | Varios | 7 | 12-08-2007 03:18:39 |
|