Try Except --finally--

[[Bicho]]

Hola yo lo que creo que está preguntando en este caso es si ésto se ejcutará en caso de que el valor de correcto sea true

Código Delphi [-]
Image1.Visible := not Correcto;
  Image2.Visible := Correcto;
  Image3.Visible := not Correcto;
  Button2.Visible := not Correcto

Para responderte, si se ejecuta, ya que esas instrucciones estan fuera del if o el else. Piensa que para que se ejecuten dentro del if o el else deben estar incluidas ademas dentro de un bloque begin..end.

Código Delphi [-]
else begin
  Label1.Caption:= 'Tu Respuesta es Incorrecta';
  Image1.Visible := not Correcto;
  Image2.Visible := Correcto;
  Image3.Visible := not Correcto;
  Button2.Visible := not Correcto
end;

En este caso no se ejecutaria si correcto fuera true. Creo que es eso lo que querías decir.

Espero te sirva.

Saludos

[[Caral]]

Señores muy amables
Mi duda esta completamente evacuada y realmente he aprendido mucho
Muchisimas gracias.
Saludos

[[maeyanes]]

Aclarando un poco más las cosas, esto:

Código Delphi [-]
If Correcto Then
  Label1.Caption := 'Bien Hecho Respuesta Correcta'
else
  Label1.Caption:= 'Tu Respuesta es Incorrecta';

Es equivalente a esto:

Código Delphi [-]
If Correcto Then
begin
  Label1.Caption := 'Bien Hecho Respuesta Correcta'
end
else
begin
  Label1.Caption:= 'Tu Respuesta es Incorrecta'
end;

Saludos...

[dec]

Hola,

O lo que es lo mismo, no es preciso utilizar un bloque "begin .. end" si sólo se precisa una instrucción a continuación del "if" o "else" de turno. El bloque "begin .. end", precisamente, sirve para poder incluir tantas instrucciones como sean precisas.