Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

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
 



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:27:11.


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