F�rum Mostar imagem aleat�ria sem se repetir - Delphi XE5 #457076

30/09/2013

Bom, tenho um projeto, e preciso que ao clicar na tela (Num panel), apare�a uma imagem aleat�ria entre 5 imagens (Ou mais, o n�mero de imagens pode variar), sem se repetir, e ao ir clicando na tela, v� aparecendo imagem por imagem, sem se repetir, at� acabar, usei v�rios TImage e para elas aparecerem, s� altero a propriedade Visible para True.

Estou usando o seguinte c�digo:

procedure TForm2.Panel1Click(Sender: TObject);
const
  N = 5;
var
  I, T, P: Integer;
  Num: array[0..N - 1] of Integer;
begin
  ListView1.Items.Clear;
  for I := 0 to N - 1 do
    Num[I] := I;
  for I := N - 1 downto 0 do
  begin
    P := Random(I + 1);
    T := Num[I];
    Num[I] := Num[P];
    Num[P] := T;
  end;
  case T of
    1 : Image1.Visible := True;
    2 : Image2.Visible := True;
    3 : Image3.Visible := True;
    4 : Image4.Visible := True;
    5 : Image5.Visible := True;
  end;
end;

At� deu certo com esse, mas ele s� funciona uma vez e preciso que a cada clique, apare�a uma imagem.

Desde j� agrade�o, valeu gente!

Rodrigo

Curtir t�pico

+ 0

Responder