Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-10-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Try Except --finally--

Hola de nuevo, Otra pregunta mas
Como quito todo esto que me desagrada usando try, execpt o algo asi, ya que como vereis uso demasiados if, si no, no me da el resultado que busco.
En el caso de Case of, no lo entiendo bien por eso no lo uso.
Hago esto:
Código Delphi [-]
if ComboBox3.Text = 'Multiplicar' Then
 Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) * StrToFloat(ComboBox2.Text));
 If Edit1.Text <> Edit2.Text Then
 Label1.Caption:= 'Tu Respuesta es Incorrecta';
 If Edit1.Text <> Edit2.Text Then
 Image1.Visible:= False;
 If Edit1.Text <> Edit2.Text Then
 Image2.Visible:= True;
 If Edit1.Text <> Edit2.Text Then
 Image3.Visible:= False;
 If Edit1.Text <> Edit2.Text Then
 Button2.Visible:= False;
 If Edit1.Text = Edit2.Text Then
 Label1.Caption:= 'Bien Hecho Respuesta Correcta';
 If Edit1.Text = Edit2.Text Then
 Image1.Visible:= True;
 If Edit1.Text = Edit2.Text Then
 Image2.Visible:= False;
 If Edit1.Text = Edit2.Text Then
 Image3.Visible:= False;
 If Edit1.Text = Edit2.Text Then
 Button2.Visible:= False;
Como veis es una repeticion de lo mismo, pero si no lo hago el if solamente ve el primer dato y obvia los demas.
Ya se codigo de principiante.
Saludos y Gracias
Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:32:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi