Ver Mensaje Individual
  #8  
Antiguo 15-07-2010
Avatar de Jac fcc
Jac fcc Jac fcc is offline
Miembro
 
Registrado: ene 2010
Posts: 33
Reputación: 0
Jac fcc Va por buen camino
y asi:

claro, la idea que haces sería:

procedure TForm1.Button1Click(Sender: TObject);
var
valorReal:Real;
begin
try
valorReal:=StrToFloat(Edit1.Text);
Edit2.Text:=extenso(valorReal);
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;
end;


o más simple:

try
Edit2.Text:=extenso(StrToFloat(Edit1.Text));
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;
Responder Con Cita