没有递增2的方法,一般可用加判断的方法来实现
for i:=0 to 9 do
begin
if i mod 2=0 then
begin
...
end;
end;
递减:
for i:=9 downto 0 do
...
for i:=0 to 9 do
begin
if i mod 2=0 then
begin
...
end;
end;
递减:
for i:=9 downto 0 do
...
解决方案 »
- Delphi 调用封装的栈函数,如何将普通的字符串进行压栈
- 我想让文本“123”平分显示在矩形尺寸内,为何这样显示出现的结果只显示了“12”。
- 关于事务问题
- 如何实现在treeview控件中模糊查找某个节点?在编辑框中输入节点的值,然后进行值的筛选
- : 申请 网络模块斑竹一职 (3)
- 【求助】如何提高主从表结构的数据访问性能
- 帮忙啊,从SQL数据库导入到ACCESS的问题
- 为何不能存入扩展名为.JPG格式的图片?
- 怎么使图片的大小改变!!!!
- 高手们请赐教!
- 怎样得到字符串中每个字符的ASCII码?
- 用visual foxpro,如果时间记录为空,就会默认为1/1/1899,如何解决?(分30)
循环递增2可以用以下方法变相实现:
For i:=0 to 9 do
begin
……………
……i*2……
……………
end;