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 07-11-2012
BioStudio BioStudio is offline
Miembro
NULL
 
Registrado: nov 2012
Posts: 15
Poder: 0
BioStudio Va por buen camino
Problem con IF y Else

Resulta que debo verificar unos campos que estos esten completos, por ende use un IF para verificar cada uno, entonces en el caso que uno de estos campos no este completo mostramos un mensaje de error, en el caso que este completos, ejecutamos una funcion x:

Código Delphi [-]
// Agregar información a la Tabla.
      IF Edit1.Text = '' THEN
        // Si la caja de Texto de Nombre de Usuario esta sin contenido, lanzamos
        // Error.
        begin
        Application.MessageBox( 'No ha rellenado el nombre del usuario.', 'Acceso denegado', MB_ICONSTOP );
        end;
      if Edit2.Text = '' Then
              // Si la caja de Texto de Password esta sin contenido, lanzamos
              // Error.
              begin
              Application.MessageBox( 'No ha rellenado el password para el usuario.', 'Acceso denegado', MB_ICONSTOP );
              end
      else;

with X.X.X.X do
    begin (...)

bien lo que pasa es que, por ejemplo no completamos nada pero siguen cumpliendo la función, he cambiado muchas veces los ";" y nada.. osea que verifica el primer Edit, no esta completo lanza error, mira el Edit2, no esta completo y luego ejecuta la función, cosa que no debe pasa. como se soluciona esto?
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problem in BindingCursor pache Firebird e Interbase 2 21-07-2005 16:28:24
Problem in bilding cursor... Iseberiano Varios 0 03-06-2005 16:44:07
problem con socket Patuquin Providers 4 22-03-2004 08:14:26
Problem con Canvas deimonio Gráficos 3 31-12-2003 10:55:02
Query problem Un abrazo Conexión con bases de datos 1 21-05-2003 15:02:59


La franja horaria es GMT +2. Ahora son las 11:57:57.


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