Problem con IF y Else

[BioStudio]

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?

[ecfisa]

Hola BioStudio.

Podes hacer:

Código Delphi [-]
  ...
  if Edit1.Text = '' then
  begin
    MessageBox(Handle,'No ha rellenado el nombre del usuario.', 'Acceso denegado', MB_ICONERROR);
    Edit1.SetFocus;
    Exit
  end;
  if Edit2.Text = '' then
  begin
    MessageBox(Handle,'No ha rellenado el password para el usuario.', 'Acceso denegado', MB_ICONERROR);
    Edit2.SetFocus;
    Exit
  end;
  // resto del código
  ...

Saludos.

[Maniches]

Yo creería que pruebes controlarlo en los eventos OnExit de cada componente TEdit:
Ya que si se hiciera clic en el botón de validación. al salir del foco del componente le va a exigir que haya ingresado: Edit1 ó Edit2
Ya que no tiene mucho sentido que se intente ingresar con usuario/password vacios...
Es mi recomendación.

Saludos.

Maniche

[roman]

Una variante de la propuesta de ecfisa, usando excepciones:

Código Delphi [-]
 ...
  if Edit1.Text = '' then
  begin
    Edit1.SetFocus;
    raise Exception.Create('No ha rellenado el nombre del usuario.';
  end;
  if Edit2.Text = '' then
  begin
    Edit2.SetFocus;
    raise Exception.Create('No ha rellenado el password para el usuario.');
  end;
  // resto del código
  ...

// Saludos

[dec]

Empezado por roman

Una variante de la propuesta de ecfisa, usando excepciones:

Código Delphi [-]
 ...
  if Edit1.Text = '' then
  begin
    Edit1.SetFocus;
    raise EInvalidArgument.Create('No ha rellenado el nombre del usuario.';
  end;
  if Edit2.Text = '' then
  begin
    Edit2.SetFocus;
    raise EInvalidArgument.Create('No ha rellenado el password para el usuario.');
  end;
  // resto del código
  ...

// Saludos

[roman]

Aunque semánticamente EInvalidArgument luce adecuado, la ayuda de delphi dice:

EInvalidArgument is the exception class for out-of-range parameters in specialized math and accounting functions.

que no necesariamente tiene qué ver con las validaciones que aquí se hacen.

Pero es cierto es que conviene más usar una excepción específica que una general como la que puse yo. Quizá definir un EEmptyField y/o EInvalidField.

// Saludos

[dec]

Hola,

Sí; quizá tomé el "InvalidArgument" demasiado alegremente... quizá porque me fié de Delphi Basics. Pero entendiste la idea Román.

[roman]

Empezado por dec

Pero entendiste la idea Román.

Síp

// Saludos