Question

Delphi 自定义变量赋值

我定义 Var Ts_Qty,Total_Num:Single; 两个变量后， 将下面两个值分别赋值给这2个
变量：
Ts_Qty:=StrToFloat(dxdbcbx_Tsqty.Text); // 筒数
Total_Num:=StrToFloat(dxdbedt_TotalNum.Text); //总箱数
但输入第一个以后，再选择第二个的时候就提示如下：
Project QCS.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped. Use Step or Run to continue.
请高手帮忙解决一下，解决后再给30分，跪求~~在线等ing

Answer 1

实验下了,错误提示是你输入的是空字符串,不匹配,
确认自己输入了数字.

追问

这个提示是在我要选择dxdbcbx_Tsqty 这个字段的数值的时候提示的。有没有什么办法可以不提示这个？

Answer 2

去掉StrToFloat()；试试

追问

[Error] YsFaceInspect.pas(517): Incompatible types: 'Single' and 'TCaption'
去掉提示这个

Answer 3

你把你输入的第一个发出来看看 类型匹配问题

追问

Ts_Qty:=StrToFloat(dxdbcbx_Tsqty.Text); // 筒数
Total_Num:=StrToFloat(dxdbedt_TotalNum.Text); //总箱数
需要输入的是：
1、dxdbedt_TotalNum （这个我输入的是：20）
2、dxdbcbx_Tsqty（这个是下来菜单，直接从数据库的字典表里面取值，有15、18、24等）
选择的提示，只在我第一次选择的时候提示，只要选择一次以后，后面再选择其他选项就不出现这个提示

追答

20是 int类型的 你先确认下 你的ts_qty会不会出现小数 如果不会出现的话 你用strtoint(dxdbcbx_Tsqty.Text)

此外，你定义的 ts_qty 的类型是什么？

追问

ts_qty这个字段倒是不会出现小数，不过后面要用这个字段去计算一个“抽验率”，这个会出现小数。
另外，换了以后提示如下：
Project QCS.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped. Use Step or Run to continue.

追答

我知道原因了 你用错方法了 dxdbcbx_Tsqty 这个如果是下拉菜单的话 你不能用dxdbcbx_Tsqty.text

下拉列表要这样用 combobox1.Items[combobox1.itemindex];

追问

那我的Ts_Qty 这个字段是不是要改成

Ts_Qty.Items[Ts_Qty.itemindex];？
我不太会

追答

dxdbcbx_Tsqty 你把你这个控件的类发下 是不是
dxdbcbx_Tsqty: TComboBox;

如果是的话
Ts_Qty:=StrToFloat(dxdbcbx_Tsqty.items[dxdbcbx_Tsqty.itemindex]);

附加：TDBComboBox 也是一样

追问

这个控件的类：TRxDBCComboBox

追答

那你按我说的试试 combobox的都是继承下来的 应该都一样
需要注意的一点 在你读取数据的时候 最好把dxdbcbx_Tsqty.itemindex的序数设一个默认值，比如0，也就是取值完毕后下拉菜单里面默认显示的是第一个

追问

修改如下：
Inspect_Rs_Qty:=StrToFloat(dxdbedt_InspectQty.text);
Ts_Qty:=StrToFloat(dxdbcbx_Tsqty.Items[dxdbcbx_Tsqty.itemindex]); // 筒数
Total_Num:=StrToFloat(dxdbedt_TotalNum.Text); //总箱数
Total_Rs_Qty:=Ts_Qty*Total_Num; //计算总筒数
Total_Rs_Qty:=StrtoFloat(format('%8.2F',[Total_Rs_qty]));
Inspect_Rate:=1.00*Inspect_Rs_Qty/Total_Rs_Qty*100 ;
还是错误提示

追答

现在的错误提示是什么 要不加Q说吧 这里太慢了

追问

我的QQ：406913120

追答

你的有问题验证 加我的吧 56101549