Cómo puedo hacer para que una variable valga 2 valores al mismo tiempo

[marcoszorrilla]

Pues una variable solamente puede contener un valor a la vez, si nos dices que es lo que quieres lograr quizás alguién te pueda ayudar, en un principio pienso que lo quieres lo lograrías utilizando matrices.

Un Saludo.

[wlad]

este es el codigo

Código Delphi [-]
procedure TForm2.Image1Click(Sender: TObject);
begin
 Randomize;
  op:=Random(52);
  edit3.Visible:=false;
  case op of
  0 : Mayorarp(36+random(48));
  1 : menorarp(36+random(48));
  2 : aumentadoarp(36+random(48));
  3 : disminuidaarp(36+random(48));
  4 : triMayor(36+random(48));
  5 : trimenor(36+random(48));
  6 : triaumentada(36+random(48));
  7 : tridisminuida(36+random(48));
  8 : Mayormaj7arp(36+random(48));
  9 : menormaj7arp(36+random(48));
 10 : triMayormaj7(36+random(48));
 11 : trimenormaj7(36+random(48));
 12 : triMayor7(36+random(48));
 13 : trimenor7(36+random(48));
 14 : Mayor7arp(36+random(48));
 15 : menor7arp(36+random(48));
 16 : escromatica(36+random(48));
 17 : esfrigida(36+random(48));
 18 : eseolicomenor(36+random(48));
 19 : eslidio(36+random(48));
 20 : esmixolidio(36+random(48));
 21 : esdorio(36+random(48));
 22 : esjonicomayor(36+random(48));
 23 : eslocreo(36+random(48));
 24 : esmenorarmonico(36+random(48));
 25 : esmenormelodico(36+random(48));
 26 : esmenorpentatonica(36+random(48));
 27 : esmayorpentatonica(36+random(48));
 28 : esblues  (36+random(48));
 29 : segmenor (36+random(48));
 30 : segmayor (36+random(48));
 31 : termenor (36+random(48));
 32 : termayor (36+random(48));
 33 : cuartajus(36+random(48));
 34 : cuartaaug(36+random(48));
 35 : quintajus(36+random(48));
 36 : sexmenor (36+random(48));
 37 : sexmayor (36+random(48));
 38 : septmenor(36+random(48));
 39 : septmayor(36+random(48));
 40 : octava   (36+random(48));
 41 : armsegmenor (36+random(48));
 42 : armsegmayor (36+random(48));
 43 : armtermenor (36+random(48));
 44 : armtermayor (36+random(48));
 45 : armcuartajus(36+random(48));
 46 : armcuartaaug(36+random(48));
 47 : armquintajus(36+random(48));
 48 : armsexmenor (36+random(48));
 49 : armsexmayor (36+random(48));
 50 : armseptmenor(36+random(48));
 51 : armseptmayor(36+random(48));
 52 : armoctava   (36+random(48));
end;
caca:=op;
edit3.text:=floattostr(caca);
end;

lo que quiero es que la variable "op" q se guardo en "caca" luego se compare con "op2" para ejecutar cierto procedimiento, pero ese procedimiento debe ejecutarse cuando "op2" tome uno de edos valores.

Código Delphi [-]
 
procedure TForm2.Button9Click(Sender: TObject);
begin
if (op2=29) or (op2=41) then;
correcto:=correcto;
  incorrecto:=incorrecto;
  if op2=caca  then
  correcto:=correcto+1
  else
  incorrecto:=incorrecto+1;
  edit1.text:=floattostr(correcto);
  edit2.text:=floattostr(incorrecto);
  edit3.visible:=true;
end;

[[eduarcol]]

Si no haces caso a las recomendaciones muy poca ayuda recibiras, encierra el codigo entre etiquetas para que sea mas legible.

Segun lo estas haciendo funciona?? no funciona??, que error te da ese codigo??

[[Gabo]]

No se entiende lo que quieres.
Recuerda que para que alguien se tome el tiempo de responderte, tú debes habértelo tomado para redactar bien la pregunta.

Me parece un problema de lógica...

[wlad]

mmm,la verdad es que soy nuevo en este foro,he leido el manual de estilo,pido disculpas ,si no m expresé bien en un comienzo,

con respecto al codigo ,no arroja ningun error,solo sucede un problema al ejecutar,este codigo corresponde a un entrenador auditivo ,que genera :escalas,intervalos y acordes de dos formas,arpegiados y armonicos,
lo que propone mi programa es que al ejecutar un boton genere un intervalo,una escala o acorde al azar....ese boton que genera los priocedimientos de las escas y acordes al azar,lo hace llamando los procedimientos por medio de una variable "OP" que se visualiza en toda la unidad(declarada en implementacion).luego el valor que tomo la variable, o sea de 0 a 52 se guardara en la variable "caca".por lo tanto lo que se necesita hacer,es responder a lo que se genero mediante un boton, por ejemplo si el boton que genera los procedimientos al azar ,arrojo un acorde mayor arpegiado, con un boton debiera responder tanto para cuando el acorde sea mayor arpegiado ,o mayor armonico ,o sea cuando "op" valga 0 o 4 en el codigo delphi.
entonces en el click del boton que responde a eso tiene como caption "mayor" (que sirvira para responde cuando el acorde es mayor arpegiado ,o mayor armonico)entonces al ejecutar el click del boton que se está usando para responder tiene que tener una variable que ya valga 0 o 4 , y luego se compare "op2" con la variable "caca" y si son iguales los valores guarde la respuesta en un EDIT para saber si es correcto ,si esos valores al compararse son distintos,la respuesta se guardara en el EDIT correspondiente a incorrecto...

gracias por tomarse el tiempo para leer esto..