Pasar valores entre variables tipo record

[jhonalone]

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.

[[Al González]]

Empezado por jhonalone

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.

Eso es bueno. Significa que no te gusta dejar cabos sueltos, y esto forma parte de un buen programador.

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.

[jhonalone]

Gracias Al.
Hasta ahora no me ha dado ningún problema, después de los cambios.
El record es el siguiente.

Código Delphi [-]
       
DATOS=RECORD
              JORNADA:INTEGER;
              SIMIL:INTEGER;
              MAX1,MED1B,MED1A,MIN1,MAX2,MED2B,MED2A,MIN2,MAXX,MEDXB,MEDXA,MINX,
              MAX1SG,MED1SG,MIN1SG,Extra1sg,MAX2SG,MED2SG,MIN2SG,Extra2sg,
              MAXXSG,MEDXSG,MINXSG,ExtraXsg,
              MAXV0,MINV0,MAXV1,MINV1,MAXV2,MINV2,MAXV3,MINV3,
              MAX2G0,MAX2G1,MAX2G2,MAX2G3:INTEGER;
              minAB,medABB,medABA,maxAB:Byte;
              A,B,PronSorTodas,PronSorMasPro,PronSorMenosPro,PronSinSor:
                                  ARRAY [1..17] OF STRING[3];  //pleno 15 con goles
              ganadora,GR,PronQuiniMasPro:ARRAY [1..17] OF STRING[1]; //pleno 15 con goles
              Aciertos: array[10..15] of integer;
              {premios: array[10..15] of Real48;}
              ValApuEuro, ValApuPtas, ApuRedu,{se pone totreducidas para estadisticas}
              Sindefinir:Real48;
              SinDefinir2:Real48;
              RaizRandomGoles: integer;  //pleno 15 con goles la variacion de resultados aleatorios para goles
              END;

La declaración de variables es esta:

Código Delphi [-]
 
 
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 }
   DMierda { Sin inicializar para control anticopia }
   DATOS;

y el evento OnExit ha quedado así después de los cambios:

Código Delphi [-]
 
procedure TApBasica.Edit15Exit(Sender: TObject);
begin
if EsUnaAsignacionMia then EXIT; // para que no de error al asignar yo los valores
if (TEdit(Sender).Text<>'1') and
   (TEdit(Sender).Text<>'X') and
   (TEdit(Sender).Text<>'2')
then begin
     Application.MessageBox('Entrada incorrecta. Utilice los signos  "1"   "X"   "2"  exclusivamente. ',
     '¡ Atención !',mb_OK+mb_IconExclamation);
     TEdit(Sender).SetFocus;
     EXIT;
     end;
DDup.A[15]:=TEdit(Sender).Text; // Aquí creo que es donde perdia valores la variable Record DDup
end; {Edit15Exit}

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.

[jhonalone]

Bueno, no entiendo por qué ha salido una imagen que yo no he puesto conscientemente en la declaración de varibles. Vuelvo a copiarlo:

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 }
   DMierda { Sin inicializar para control anticopia }
   DATOS;
..........

[jhonalone]

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.

[ecfisa]

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

[Casimiro Noteví]

Se ve bien