Código Delphi [-] begin try StrToFloat(Edit1.Text); except on EConvertError do begin Edit1.SetFocus; ShowMessage('Debe ingresar un número válido!'); end; end; end;
begin try StrToFloat(Edit1.Text); except on EConvertError do begin Edit1.SetFocus; ShowMessage('Debe ingresar un número válido!'); end; end; end;