PDA

Ver la Versión Completa : si se deja un campo vacion que le marque err0r al usuario


jangel
13-09-2004, 00:11:32
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:

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;
;)