库存管理软件版1楼: 在循环体中如何进行赋值,赋值后还可以继续循环执行下面的语句(注意:不能重新循环)

2楼: 看不懂的问题 如小企业财务软件

3楼: 是不是指直接跳到循环变量=特定数值的方法？
貌似我是用条件语句判断然后一直Continue的
例如
for i:=1 to 10 do
begin
if i<5 then
Continue
else
你真正要做的事情
end;

4楼: 我的意思,已经很明白了呀!!!

for .... to ...... do
进入循环体
触发一个焦点让它暂停
然后进行赋值
再接着继续向下执行
......
.....
最后退出循环

5楼: 用while

6楼: 主要是你要对什么进行附值
如果仅仅是进入循环体而已就在循环里一直判断一个Boolean变量即可
首先先将循环放如线程里，然后在外部改变该Boolean变量值即可
其实操作系统中的文件拷贝就是这种形式
例下即可
for i:=1 to 1000 do
begin
if Mybool then
begin
你想做的事
end;
循环体
end;

库存管理软件版7楼: 举例子吧

8楼: 我是对edit.text进行赋值

9楼: procedure test;

var
ok:boolean;
s:string;
begin
ok:=False;
while not ok do
begin
s:=inputbox(＇＇提示＇＇,＇＇请输入一个奇数＇＇,＇＇＇＇);
if not odd(strtointdef(s,0)) then
begin
showmessage(＇＇＇＇＇＇＇＇+s+＇＇＇＇＇＇ 不是奇数＇＇);
continue;
end else
begin
showmessage(s+＇＇ 是奇数，ok!＇＇);
end;
... ...
ok:=True;
end;
end;

10楼: for i:=0 to 循环数 do
begin
if 触发事件的条件 then
begin
edit.text:= 你要赋的值;
continue;
end;
{其他循环节内容}
end;

11楼: 埃及使者的方法不行.

temas的方法我还没有作出来,如果可以我一定＇＇[b]加分＇＇[/b]

12楼: 多人接受答案了。 如用友软件销售