Memotest, juego con matrices

[JoseGus]

Hola a todos!

Necesito ayuda con un proyecto para la universidad, estoy haciendo un juego con matrices (Memotest, juego de buscar los pares). Necesito ayuda para hacer lo básico, de perfeccionarlo me encargo yo.

Hasta ahora he logrado cargar las imágenes en una matriz de 6x6 (la matriz está hecha usando las herramientas de FormPaint de Delphi). Tengo que cargar las imágenes de a pares, o sea, en una matriz de 6x6 hay 36 casillas, lo que es igual a 18 imágenes pares..

1. ¿Cómo hago para cargar las imágenes de a pares, para que una imagen no se repita dos 3 o mas veces en la matriz?
2. ¿Cómo hago para que al hacer click una imagen se de vuelta? Esto suponiendo que al momento de iniciar el juego todas las imágenes ya estan cargadas
pero están boca abajo.

Agradecería cualquier ayuda o idea, especialmente con mi primer pregunta.

Anexo el código de mi trabajo hasta el momento:

Formulario Principal:

Código Delphi [-]
unit UFPantalla;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,UCCuadricula, StdCtrls,JPEG;

type
  TfrmPantalla = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    MC : Cuadricula;
    Lista : Array[1..18] of  TJPEGImage;
    X,Y : Integer;
    TA,TH: Integer;
  public
    { Public declarations }
  end;

var
  frmPantalla: TfrmPantalla;

implementation

{$R *.dfm}

procedure TfrmPantalla.FormCreate(Sender: TObject);
var i: Integer;
begin
  MC:=Cuadricula.Create;
  MC.CargarEtepa(1);
  Randomize;
  for i:=1 to 18 do
    begin
      Lista[i]:=TJPEGImage.Create;
      Lista[i].LoadFromFile('C:\Users\Familia\Desktop\MemoTest Imagenes\Imagenes  
                                                      \im'+inttostr(i)+'.jpg');
    end;
    TA:=Trunc((Screen.Width div MC.NroColumnas)*0.9); //203
    TH:=Trunc((Screen.Height div MC.NroFilas)*0.9);   //115
    X:=(Screen.Width-(MC.NroColumnas*TA)) div 2;    //71
    Y:=(Screen.Height-(MC.NroFilas*TH)) div 2;      //39
end;

procedure TfrmPantalla.FormDblClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmPantalla.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption:='X: '+Inttostr(X)+' | '+'Y: '+Inttostr(Y);
  if (X>=71) and (X<=1289) and (Y>=39) and (Y<=729) then
  Screen.Cursor:=-21
  else
  Screen.Cursor:=crDefault;
end;

procedure TfrmPantalla.FormPaint(Sender: TObject);
var j,i,Px,Py: Integer;
begin

Canvas.Pen.Color:=clRed;
Canvas.Pen.Width:=1;
Canvas.Rectangle(X-1,Y-1,(TA*MC.NroColumnas)+X-1,(TH*MC.NroFilas)+Y-1);

Py:=Y;
  for i:= 1 to MC.NroFilas do
  begin
    Px:=X;
    for j:= 1 to MC.NroColumnas do
    begin
      //Canvas.StretchDraw(RECT(Px,Py,Px+Ta,Py+Th),Lista[MC.ObtenerImagen(i,j)]);
      Canvas.Pen.Color:=clRed;
      Canvas.Pen.Width:=1;
      Canvas.Rectangle(Px-1,Py-1,Px+Ta+1,Py+Th+1);
      Canvas.StretchDraw(RECT(Px,Py,Px+Ta,Py+Th),Lista[MC.ObtenerImagen(i,j)]);
      Px:=Px+TA;
      //Screen.Cursor:=-21;
    end;
    Py:=Py+TH;
  end;
end;
end.

-----------------------------------------------------------------------

Unidad Creada:

Código Delphi [-]
unit UCCuadricula;

interface
Uses SysUtils, Math;
Const
    MaxF=16;
    MaxC=16;
Type
    TCelda = Record
          Img : Byte;
          Estado : Byte;
    End;
    TCuadricula = Array[1..MaxF,1..MaxC] of TCelda;
    Cuadricula = Class
      Private
            Filas,
            Columnas : Word;
            Celdas : TCuadricula;
      Public
            Constructor Create;
            Procedure CargarEtepa(E : Byte);
            Procedure ReDimensionar( F,C : Word);
            Function NroFilas : Word;
            Function NroColumnas : Word;
            Procedure ColocarImagen(F,C:Word; I : Byte); //Carga la imagen, contenida entre un valor entre 1 y 256
            Procedure CambiarEstado(F,C:Word; E : Byte); //Cambia el estado de la imagen (0=tapado; 1=visible)
            Function ObtenerImagen(F,C:Word):Byte; //Devuelve la imagen en si, contenida entre un valor entre 1 y 256
            Function ObtenerEstado(F,C:Word):Byte; //Devuelve el estado de la imagen (0=tapado; 1=visible)
    End;

implementation

{ Cuadricula }

procedure Cuadricula.CambiarEstado(F, C: Word; E: Byte);
begin
  If (F>0)and(F<=Filas)and(C>0)And(C<=Columnas) then
    Celdas[F,C].Estado:=E
    else raise Exception.Create('Error : Columna o Fila Incorrecta');
end;

procedure Cuadricula.CargarEtepa(E: Byte);
var i,j,c: Word;
    a: byte;
begin
  c:=0; a:=0;
  Randomize;
  for i:=1 to Filas do
    for j:=1 to Columnas do
      begin
        Celdas[i,j].Img:=Random(18)+1;
        Celdas[i,j].Estado:=0;
      end;
end;

procedure Cuadricula.ColocarImagen(F, C: Word; I: Byte);
begin

end;

constructor Cuadricula.Create;
begin
  Filas:=6;
  Columnas:=6;
end;

function Cuadricula.NroColumnas: Word;
begin
  Result:=Columnas;
end;

function Cuadricula.NroFilas: Word;
begin
  Result:=Filas;
end;

function Cuadricula.ObtenerEstado(F, C: Word): Byte;
begin
  Result:=Celdas[F,C].Estado;
end;

function Cuadricula.ObtenerImagen(F, C: Word): Byte;
begin
  Result:=Celdas[F,C].Img;
end;

procedure Cuadricula.ReDimensionar(F, C: Word);
begin
  Filas:=F;
  Columnas:=C;
end;
end.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Esto no tiene nada que ver con "Internet", lo paso a "Varios".

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

Hola JoseGus.
Bienvenido al Club.

Lo primero felicitarte, porque debes ser de los pocos que viene a pedir ayuda para un trabajo/práctica y se presenta con algo hecho y sabiendo lo que necesita.
La mayoría ponen el enunciado del problema y dicen "¿Cómo se hace?" (o lo que es lo mismo, ¿Me lo hacéis?)

Empezado por JoseGus

1. ¿Cómo hago para cargar las imágenes de a pares, para que una imagen no se repita dos 3 o mas veces en la matriz?

Hay varias opciones, algunas requieren más cambios que otras.
La más sencilla que se me ocurre es utilizar una lista intermedia (18 posiciones), para marcar qué números has utilizado ya y cuentas veces.
IDEA:
Empiezas con la lista vacia, utilizas un Ramdom(18) y si sale un 7 (por ejemplo), en la posición 7 de la lista colocas un 1 (porque ha salido una vez). Si luego sale un 5, en la posición 5 colocas un 1.... Cuando vuelva a salir el 7, en la posición 7 colocas un 2 (esto marca que el 7 ya ha salido 2 veces = la imagen 7 ya la has utilizado 2 veces). La siguiente vez que salga el 7, como ya lo has utilizado 2 veces, debes descartarlo.

Algo así:

Código Delphi [-]
var
  list:Array[1..18] of integer;
  j, i, asignados:Integer
begin
 Asignados := 0;
 Randomize;

 While (asignados < 36) do begin

  j := Random(18)+1;   // te da un número entre 1 y 18

  if (list[j] = 0) then begin   // Este número no se ha usado
    Asignar al tablero la imagen numero j
    list[j] := 1;  // marco que la he usado 1 vez
    asignados := asignados + 1;  // he asignado 1 imagen más
  end
  else if (list[j] = 1) then begin   // Este número ya se ha usado 1 vez
    Asignar al tablero la imagen numero j
    list[j] := 2;  // marco que la he usado 2 veces
    asignados := asignados + 1;  // he asignado 1 imagen más
  end
  else begin    // si llego aquí es que ya la he usado 2 veces
    // En este caso no hago nada; Me interesa que busque otro
    // NADA
  end;
 end;

Es más o menos la idea.
Tal vez no compile alguna cosilla, ya que te lo he hecho de memoria.
Tendrás que inicializar el array a 0 (todas las posiciones).

Empezado por JoseGus

2. ¿Cómo hago para que al hacer click una imagen se de vuelta? Esto suponiendo que al momento de iniciar el juego todas las imágenes ya estan cargadas
pero están boca abajo.

Bueno, lo que debes hacer, es que en visual tengas cargada inicialmente la misma imagen; Una imagen neutra que representa la parte trasera de la carta (un interrogante o cualquier otra).
Cuando un usuario pulsa un click sobre esa imagen, lo que hacer es cargar realmente la que tienes en la Lista[j] (la posición que corresponda).

No se si me he explicado.

Un saludo.