Ver Mensaje Individual
  #1  
Antiguo 07-11-2012
BioStudio BioStudio is offline
Miembro
NULL
 
Registrado: nov 2012
Posts: 15
Reputación: 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