for n := 0 to 99 do ShowMessage(IntToStr(n));每次点击一下确定按钮:)
To wisenowa(127.0.0.1) 我是要进行大量的操作而不是显示信息?要是你那么简单,就好了!!!
To dyf2001(西风) 请解释,我现在晕乎着呢,昨晚打了一晚游戏,今天迷糊,昏昏欲睡
Procedure InteruptProcess;//循环处理的过程 Begin .... EndProcedure CirculationProcess; Var Start:Integer; Begin For Start:=StartNum To EndNum DO Begin InteruptProcess;//调用循环处理函数 End; End;
{
int rtCode=yourFunc();//你的处理函数,
if(rtCode)
{ ....
}
else
{ ....
}
}
ShowMessage(IntToStr(n));每次点击一下确定按钮:)
我是要进行大量的操作而不是显示信息?要是你那么简单,就好了!!!
请解释,我现在晕乎着呢,昨晚打了一晚游戏,今天迷糊,昏昏欲睡
Begin
....
EndProcedure CirculationProcess;
Var
Start:Integer;
Begin
For Start:=StartNum To EndNum DO
Begin
InteruptProcess;//调用循环处理函数
End;
End;
如果需要多次中断,就写多个同样的循环。。呵呵,是不是有点复杂?!不过好用阿!
我主要是对数据库里的数据操作!!!取出数据后,根据数据做一定的选择,然后再写库!!!
所以循环是必需的,但是我的操作,分配某个值给一字段是没有规律的,怎么办??
我主要是对数据库里的数据操作!!!取出数据后,根据数据做一定的选择比如是3项选择,然后再写库!!!
所以循环是必需的,但是我的操作,选择分配某个值给一字段是没有规律的但是是在一个去值范围内的,怎么办??
While Not table1.Eof do
table1.next;
必须是在循环里边啊,老大
if Not table1.Eof then table1.next;
呵呵,有点意思了