imágenes asignadas a números de un memo

[gontxalo]

Hola
Tengo un problema y necesitaba un poco de ayuda.

Genero 20 números aleatorios sin repetir y los coloco en 20 TMemo.
Luego según que número sale pues unas imágenes se hacen visibles. Hasta ahí bien. Pero quiero que por ejemplo en si en el memo1 sale el 1 sea visible la image 1, pero la imagen 1 es visible si sale el 1 en cualquiera de los 20 memos aunque le diga que si es en el memo 1. He puesto los siguientes code sin éxito:

Código Delphi [-]
  procedure TForm2.Button1Click(Sender: TObject);
  var
     Ristra : TAlea2;
     n      : integer;
     linea : integer;
  Ristra:=TAlea2.Create(20); {Saco 20 números sin repetir}
      for n:=1 to 1 do begin
      linea := ristra.PillaNumero;
      memo1.Lines.Add( IntToStr(linea) );
  end;
  for n:=1 to 1 do begin
      linea := ristra.PillaNumero;
      memo2.Lines.Add( IntToStr(linea) );
  end;
 {hasta aquí funciona, hasta el memo 20, saca los números y los pone en
 los memo. pero para que sea visible la image 1 sólo cuando sale el 1 en 
 el memo1 he probado los siguientes code sin éxito:}
      if linea = 1 then image1.Visible := True;
      image1.Top := 50;
      image1.Left := 69;

Sale la imagen si sale el 1 en cualquier memo no en el memo1.
code 2:

Código Delphi [-]
  if Memo1.Text = '1' then image1.Visible := True;
  image1.Top := 50;
  image1.Left := 69;

Sale la imagen si sale el 1 en cualquier memo no en el memo1.
code3:

Código Delphi [-]
  image1.Visible := Memo1.Text = '0';
  image1.Top := 50;
  image1.Left := 69;

Sale la imagen si sale el 1 en cualquier memo no en el memo1.

que code tendría que poner ?

Gracias

[Neftali [Germán.Estévez]]

Utiliza TAG´s en los mensajes, por favor, mejorará mucho la legibilidad del código. En ésta ocasión ya te lo corrijo yo.

[Neftali [Germán.Estévez]]

Empezado por gontxalo

...quiero que por ejemplo en si en el memo1 sale el 1 sea visible la image 1

Eso es sencillo (ese código lo tenías bien):

Código Delphi [-]
   Image1.Visible := Memo1.Text = '1';

Empezado por gontxalo

...pero la imagen 1 es visible si sale el 1 en cualquiera de los 20 memos aunque le diga que si es en el memo 1.

Eso debe ser porque debe haber código después del anterior que modifica esa propiedad, pero si ejecutas paso a paso y revisas el valor después de esa instrucción debe ser correcto; Puede ser que haya algun código posterior que te haga que falle.

[gontxalo]

Hola
Lo había probado en un form nuevo y escribiendo yo el número en el TMemo y dando al botón la imágen aparece, pero dando al botón que genera los números aleatorios y los pone en los TMemos la imágen no aparece. Porque puede ser?

Gracias.

[gontxalo]

Hola, gracias.

Perdón pero no sed donde están los tags para meter los code o citas. Por favor decirmelo para aprender a usarlos para las siguientes veces.

Ya lo tengo. Lo he conseguido con:

if linea = 1 then image1.Visible := True;
if linea = 1 then image1.Top := 50;
if linea = 1 then image1.Left := 69;

Antes tenía

if linea = 1 then image1.Visible := True;
image1.Top := 50;
image1.Left := 69;

Gracias otra vez.

[German]

Código Delphi [-]
if linea = 1 then 
begin
  Image1.Visible := True;
  Image1.Top := 50;
  Image1.Left := 69;
end;

o

Código Delphi [-]
if linea = 1 then with image1 do
begin
  Visible := True;
  Top := 50;
  Left := 69;
end;

Nota:
Para incluir lineas de código Delphi, puedes encerrar las líneas entre [ Delphi ] y [ /Delphi ] (sin espacios). Por ejemplo:

[ Delphi ]
Image1.Hide;
Close;
[ /Delphi ]


Salu2.