edit28.Text:=floattostr(strtofloat(leftstr(rightstr(trim(edit27.Text),8),5)));电子秤传来的数据为 kt 12.12kg 这样截取的数据正常有时数据为 ? 或者其他非正常字符串就会提示'' is not a valid float point value或者
'?' is not a valid float point value如何判断leftstr(rightstr(trim(edit27.Text),8),5))获得的不是数字时exit;if ------ then exit;
'?' is not a valid float point value如何判断leftstr(rightstr(trim(edit27.Text),8),5))获得的不是数字时exit;if ------ then exit;
解决方案 »
- 用TIdFTP链接服务器出错 如上图,如何处理啊?
- 关于DELPHI中float处理的问题
- 请问谁知道在delphi5.0下没有安装Excel,把dbgrid控件中的数据生成Excel文件吗?(求完整源代码送高分)
- 谁有关于ocr或者omr方面的算法、原理介绍以及相关资料?(高分)
- 请教这个语句有何错误?
- 菜鸟提问:程序打包发布问题(sql server 2000+bde+多层) 使用installshield express
- 有无现成的控件:显示为" 正在XX,请稍候..."
- 如何做到子窗体最小化后和父窗体一样,在任务栏上也有一个最小化后的任务条
- 怎样使控件如按钮,滚动条变成平面的,用setwindowslong吗?
- 求教:哪位知道有无Word和TBlobField綑定的组件?
- 想个这种组件,实现TlistView可编辑,有可能实现吗?
- xe2中的FireMonkey HD窗体如何做成像QQ自动顶部隐藏功能窗体,是否有高人给出答案!
edit28.Text:=floattostr(strtofloat(leftstr(rightstr(trim(edit27.Text),8),5)));
except
edit28.Text:='';
end;或者直接将重量用show出来edit28.Text:= leftstr(rightstr(trim(edit27.Text),8),5);
i: LongInt;
f: Double;
Str: string;begin
if not TryStrToInt(leftstr(rightstr(trim(Str),8),5),i) or not TryStrToFloat(leftstr(rightstr(trim(Str),8),5), f) then exit;这样为啥不行?
这样可以的,要Use StrUtils
所以你完全可以换个思路,kt一定是在前面,且确定2位,kg一定在后面,且确定2位。这样得到中间数据部分,你肯定会写吧
最后用这个strtofloatdef('',0),以防万一。