请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 1459|回复: 2

FloatSpinEdit使用问题,应该是Bug,请帮忙

[复制链接]

该用户从未签到

发表于 2014-12-21 16:52:23 | 显示全部楼层 |阅读模式
本帖最后由 alexwu 于 2014-12-21 16:54 编辑

在Form1里面添加了3个FloatSpinEdit,分别赋值为40.00,59.99,0.01,总和100,增加一个按钮,用来校验数据。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (FloatSpinEdit1.Value + FloatSpinEdit2.Value + FloatSpinEdit3.Value) <> 100.00 then  // 总和报错
    ShowMessage('Error0!');

  if FloatSpinEdit1.Value <> 40.00 then
    ShowMessage('Error1!');

  if FloatSpinEdit2.Value <> 59.99 then    // 第2个数值报错
    ShowMessage('Error2!');

  if FloatSpinEdit2.Value <> 0.01 then    // 第3个数值报错
    ShowMessage('Error3!');
end;

附件是源代码,请坛友们帮忙看看。Windows 7 64位,32位版本的lazarus 1.2.6。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

该用户从未签到

发表于 2014-12-22 00:37:41 | 显示全部楼层
没错误啊
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主 发表于 2015-1-4 09:57:53 | 显示全部楼层
难道是我打开姿势不对,同样的东西,在我的电脑上就会出现错误。
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2019-6-19 07:02 , Processed in 0.128630 second(s), 22 queries .

Powered by Discuz! F1.0 Build 20160930

© 2001-2019 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表