Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 21-07-2010
mcs mcs is offline
Miembro
 
Registrado: may 2007
Ubicación: Girona
Posts: 229
Poder: 20
mcs Va por buen camino
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;
lo que puedes hacer es:
Código:
procedure TForm1.CalcularClick(Sender: TObject);
begin
  if not Edit1.text='' then
  // hacer lo que quieras
end;
Ah, yo añadiría un trim al Edit1, para que quitase los espacios en blanco de delante y detrás:
Código:
 procedure TForm1.CalcularClick(Sender: TObject);
 begin
   if not Trim(Edit1.text)='' then
   // hacer lo que quieras
 end;
Así, si lo único que hay en Edit1 es una cadena de espacios en blanco, tampoco hará nada.

Saludos,

Marc
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

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


La franja horaria es GMT +2. Ahora son las 21:55:56.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi