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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-09-2004
jangel jangel is offline
Registrado
 
Registrado: sep 2004
Posts: 1
Poder: 0
jangel Va por buen camino
Question 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;
Responder Con Cita
  #2  
Antiguo 13-09-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
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;
__________________
:)
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 10:29:39.


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