Ver Mensaje Individual
  #4  
Antiguo 19-04-2012
5TU4RT 5TU4RT is offline
Registrado
NULL
 
Registrado: abr 2012
Posts: 8
Reputación: 0
5TU4RT Va por buen camino
Ya arregle lo que me dijiste y me funciona muy bien...
pero ahora lo que pasa es lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, suma : integer;
begin
if Edit1.Text = '' then
ShowMessage('Porfavor Digite un Valor')
else
Label3.caption := ('+');
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
suma := a + b;
Edit3.Text := IntToStr(suma);
end;

Cuando el Edit1 no tiene nada y doy click al boton me sale un mensaje diciendo "porfavor digite un valor" y al darle en ok! al mensaje me aparece otro error!!!
no se porque!!!

Muchisimas Gracias...

Última edición por Casimiro Notevi fecha: 19-04-2012 a las 23:08:32.
Responder Con Cita