Cita:
Empezado por Piter_1
la puntuación suma 1 , si no no aumanta, bien lo mas lógico para mi seria un botón con un evento onclick algo así:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
if Image1.Picture=Image5.Picture then
inc(puntuacion);
Label2.Caption:=IntToStr(puntuacion);
end;
|
Si ejecutas paso a paso ese código, imagino que no está pasando por el Inc.
Debes entender lo que has colocado, para saber porqué.
Código Delphi
[-]
if Image1.Picture=Image5.Picture then
Con esta comparación está comparando 2 direcciones a memoria, pero no 2 imágenes para saber si son iguales.
Si te explicas iun poco más tal vez podamos ayudarte.
Lo lógico en este caso (si es lo que yo me imagino) es que guardes una estructura en memoria (array bidimensional) con lo que se incluye en cada casilla y compares esos valores, en lugar de las imágenes.