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. |
#7
|
||||
|
||||
Hola
Saludos
__________________
Siempre Novato |
#8
|
||||
|
||||
yo agregaría al codigo de Caral el trim usado por mcs.
pues si el usuario se le ocurre oprimir la barra espaciadora, no se cumple la igualdad. Incluso el usar GetTextLen no se cumpliría, pues se tendría longitud uno, dos, ...(por cada espacio) aunque sean espacios blancos.
__________________
Para una vida sana hay que ocupar 30 de 24hrs diarias...Ups! |
|
|
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 |
|