FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
como detectar edit vacio y no hacer nada?
Hola primero que nada gracias por entrar a tratar de ayudarme de nuevo.
Bueno pues veran deje lo poco que sabia de delphi por un tiempo asi que ahora lo poco que sabia se me olvido [que no era mucho pero bueno....] bien vamos al punto veran necesito detectar un edit vacio en una operacion es decir si tengo un edit1, edit2 y un button1 hacer que si detecta que el edit1 no tiene nada es decir que este en blanco no aga nada [cancele la operacion] y muestre un mensaje en pantalla como lo ago? anterior mente me dijeron como hacer que si no tenia ciertos caracteres mandara un beep :P pero esto no tengo idea como hacerlo espero me puedan ayudar. Hasta ahora llevo esto: Código:
procedure TForm1.Calcular1Click(Sender: TObject); begin if Trim(edit1.text) = '' then //aqui no se orden iria :S end; de antemano gracias |
#2
|
|||
|
|||
Es muy simple, hazlo al revés.
En vez de Código:
procedure TForm1.CalcularClick(Sender: TObject); begin if Edit1.text='' then // no hacer nada end; Código:
procedure TForm1.CalcularClick(Sender: TObject); begin if not Edit1.text='' then // hacer lo que quieras end; Código:
procedure TForm1.CalcularClick(Sender: TObject); begin if not Trim(Edit1.text)='' then // hacer lo que quieras end; Saludos, Marc |
#4
|
|||
|
|||
Bueno primero que nada les doy las gracias por la ayuda pero lo que no me queda claro es como cancelar que aga la operacion osea que el edit1+edit2 no pase el resultado al label1 si detecta que esta vacio un campo eso es lo que me falta espero me puedan ayudar a lo que me refiero es que orden iria en
// hacer lo que quieras, aqui es donde se da la orden de no hacer nada pero ¿como lo ago? de antemano gracias |
#5
|
||||
|
||||
Hola Lutmak.
Si no te entiendo mal, lo que queres es que, si el Edit1 está vació no se complete la operación de asignar la concatenación a Label1, no ? Si es así, sería: Código:
procedure TForm1.Calcular1Click(Sender: TObject); begin if Edit1.Text > '' then Label1.Caption := Edit1.Text + Edit2.Text; end; Código:
procedure TForm1.Calcular1Click(Sender: TObject); begin if (Edit1.Text > '') and (Edit2.Text > '') then Label1.Caption := Edit1.Text + Edit2.Text; end; Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
|||
|
|||
muchas gracias a todos encontre la solocion a mi problema con ayuda de ustedes!
gracias aqui dejo el code por si alguien mas en algun futuro la nesesitara.. Código:
procedure TForm1.Button1Click(Sender: TObject); begin if edit1.text ='' then begin beep; statictext1.Caption :=#0; showmessage ('ingrese un valor valido'); end else if edit2.text ='' then begin beep; statictext1.Caption :=#0; showmessage ('ingrese un valor valido'); end else statictext1.Caption :=floattostr ( strtofloat (edit1.text)+ strtofloat (edit2.text)); end; end. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿como hacer un incremental en un edit? | Nelly | Varios | 3 | 18-09-2007 20:18:42 |
¿Como puedo hacer que aumente el valor de un edit? | Nelly | Varios | 7 | 18-04-2007 05:33:27 |
de un form a otro sin hacer nada ? | mainau | Varios | 5 | 26-07-2004 19:32:35 |
Como Saber Si Dbedit O Edit Esta Vacio | mainau | Varios | 5 | 17-07-2004 12:42:04 |
Como hacer un Hook Para detectar internet | carlosmoralesm | Internet | 1 | 03-04-2004 10:40:34 |
|