Tema: Try Except --finally--
Ver Mensaje Individual
  #2  
Antiguo 02-10-2006
[maeyanes] maeyanes is offline
Capo de los Capos
  
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 26
maeyanes Va por buen camino
Para simplificar algunas líneas puedes hacer:

Código Delphi [-]
var
  Correcto: Boolean;

begin
  if ComboBox3.Text = 'Multiplicar' Then
    Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) * StrToFloat(ComboBox2.Text));
  Correcto := Edit1.Text = Edit2.Text;
  If Correcto Then
    Labe1.Caption := 'Bien Hecho Respuesta Correcta'
  else
    Label1.Caption:= 'Tu Respuesta es Incorrecta';
  Image1.Visible := not Correcto;
  Image2.Visible := Correcto;
  Image3.Visible := not Correcto;
  Button2.Visible := not Correcto
end


Saludos...
Responder Con Cita