Ver Mensaje Individual
  #5  
Antiguo 27-12-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Piter_1 Ver Mensaje
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita