Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   si se deja un campo vacion que le marque err0r al usuario (https://www.clubdelphi.com/foros/showthread.php?t=14189)

jangel 13-09-2004 00:11:32

si se deja un campo vacion que le marque err0r al usuario
 
aqui esta lo que he llevado de este programa

procedure TForm1.ButtonClick.(Sender: TObject);
Var
Nombre,Apellido,Bienvenido:String;
Nombre:=Enombre.text;
Apellido:=Eapellido.text;
Bienvenido:=Nombre+' '+Apellido;
Lcaptura.caption:=Bienvenido;
LBienvenido.Visible:=True;
end;

DarkByte 13-09-2004 00:16:13

Hola jangel, bienvenido al club. Cuando vayas a escribir código Delphi, intenta encerrarlo entre [ Delphi ] y [/ Delphi ] (sin espacios). Si lo identas quedaría mucho mejor. Aquí tienes tu código mejorasdo:
Código Delphi [-]
procedure TForm1.ButtonClick.(Sender: TObject);
Var
  Nombre,Apellido,Bienvenido:String;
begin
  If (eNombre.Text = '') or (eApellido.Text = '') Then //Si alguno esta vacio
  begin
     ShowMessage ('Es necesario rellenar todos los campos');
     Abort; //Cancelamos el proceso
  end;
  Nombre:=Enombre.text;
  Apellido:=Eapellido.text;
  Bienvenido:=Nombre+'  '+Apellido;
  Lcaptura.caption:=Bienvenido;
  LBienvenido.Visible:=True;
end;
;)


La franja horaria es GMT +2. Ahora son las 02:47:52.

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