超级简单的DELPHI问题，取小数位

Posted 2023-04-29

一个EDIT1.text，显示的数字，可能是10000.559653这样的格式，我现在想转换成10000.55，取小数位后的2位数，并显示在EDIT1里。不要四舍五入
简单吧？有高手，回答一下吧。。。

方法1: Edit1.Text:= FloatToStrF(StrToFloat(Edit1.Text), fffixed, 15, 2);
方法2: Edit1.Text:= Copy(Edit1.Text, 1, Pos('.', Edit1.Text)+ 2); 参考技术A Edit1.Text:=copy(Edit1.Text,1,pos('.',Edit1.Text)+2);

易语言循环取超级列表框被选中项目到指定变量

如图，循环取被选中的项目到变量A,B怎么写

不用循环取的，你可以看一下超级列表框的 自有事件，有个叫当前列表项被改变 这个事件
在里面调试就可以了
这里给你一个简单的
.版本 2
.支持库 iext
.支持库 spec

.子程序 _超级列表框1_当前表项被改变
.局部变量 A, 文本型
.局部变量 B, 文本型

A ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
B ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
调试输出 (A)
调试输出 (B)

这样每一次选择都可以给A,B 重新赋值了追问

我想要的是自动，比如说里面有三行项目，我想让他们分别发送一次邮件，怎么弄。不用变量也可以的

追答

自动不自动 自己去添加
超级列表框1.取标题（）
这个命令就能取出超级列表框里面的内容，
两个参数 一个是横向位置一个是纵向位置
你只要取出来了 你不是想干什么就能干什么了吗

参考技术A 首先 取被选择表项 （）取出你所选择的表项位置索引
再循环取出索引数组的每个数值，同时取标题（）就可以取出选择的所有项的数据了。 参考技术B 选中则取里面的值赋值到A和B中？然后执行子程序？