Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 2485|回复: 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。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

x
回复

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

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

使用道具 举报

*滑块验证:

本版积分规则

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

GMT+8, 2025-5-2 01:16 , Processed in 0.080389 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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