Question

delphi for循环实现问题

var i:integer;
begin
for i:=1 to se2.Value do
begin

TheRecorder.DoStop; // 先停止
TheRecorder.DoPlay; //后播放

NEXT;
// showMessage(IntToStr(i));
end;
end；
请问上面的循环为什么至运行一次呢？se2.Value无论是多少都运行一次，测试用showMessage(IntToStr(i));提示，就会运行多次，但每次会提示确定，是哪里写错了。要怎么样才可以正常循环呢？谢谢。
（DELPHI初学者）

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏10（财富值+成长值）

Answer 1

1、去掉next；
2、加入sleep(500);(在原next位置)

追问

还是只运行一次，i的值一下就跳到se2.Value的值了

追答

把sleep改到stop和play之间；
如果还不行，把延时500改成1000试下。

追问

也不行哦，这是一个鼠标记录器来的。

Answer 2

不要NEXT;
另外se2.Value在循环体中会重新赋值吗？

追问

SE2. 最小是1，运行前可以自定义一个值的