como detectar edit vacio y no hacer nada?

[Lutmak]

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

[ecfisa]

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:

procedure TForm1.Calcular1Click(Sender: TObject);
begin
   if Edit1.Text > '' then 
     Label1.Caption := Edit1.Text + Edit2.Text;
end;

Si deseas que no se realize la asignación si cualquiera de los Edit's está vacío, sería:

procedure TForm1.Calcular1Click(Sender: TObject);
begin
   if (Edit1.Text > '') and (Edit2.Text > '') then 
     Label1.Caption := Edit1.Text + Edit2.Text;
end;

Espero haberte entendido.

Saludos.

[Lutmak]

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..

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.

[[Caral]]

Hola

Código Delphi [-]
uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.text ='' then
 begin
   sndPlaySound('C:\Windows\Media\windaVinciClose.wav',
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else
 if edit2.text ='' then
 begin
   sndPlaySound('C:\Windows\Media\windaVinciClose.wav',
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else

 statictext1.Caption :=floattostr ( strtofloat (edit1.text)+ strtofloat (edit2.text));

end;
end.

Saludos

[Jac fcc]

yo agregaría al codigo de Caral el trim usado por mcs.

Código Delphi [-]
if Trim(edit1.text)='' then
...
 if Trim(edit2.text)='' then
...

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.