delphi 步长不等于 1 的方法 

i:=0; 
while     i <=100   do   
begin     
    ... 
    INC(i,4);   
end;   
不能用for循环，只能用像上面的方法折衷一下

 

posted @ 2016-10-11 16:28  海蓝7  阅读(906)  评论(0)  编辑  收藏  举报