delphi里面for语法使用时递增是只能1,2,3,...递增码?,能不能递增任意数字呢?(如:1,3,5,7,...).
还有能不能可以做到递减呢?
for I := 0 to 10 do
begin
end:
还有能不能可以做到递减呢?
for I := 0 to 10 do
begin
end:
解决方案 »
- 读取流【ReadBuffer】报错,是怎么回事?
- 导出到txt
- 求一段代码的解析
- 请问:账户密码修改界面中输入的帐号密码 如何实现MD5加密
- 请问在delphi中如何检查ctrl+shift被按下。
- 问一个小数点位数的问题
- 如何学习VC和DELPHI?我是学计算机的,很喜欢编程。在大学学习的C语言 但没有实际工作能力。现在想学习VC但我的同学又说太难了,还是先学
- 100分!高手指教:如何让我的Form不被最小化(注意:是要用户点击'显示桌面'按钮也不最小化)
- 在程式最小化时,怎样做成foxmail的模式,即不出现在任务栏中,而是在右下角的显示系统时间栏中!
- 客户端在一台机器上启动了2个实例,用UdpSocket怎么控制把信息发到某个实力!!!
- MID Child 中的控件内容保存
- 在STRINGGRID中绑定了一个日期控件,如何清空日期?
begin
..........
end;
var
bytI:byte
begin
bytI:=0;
while bytI<10 do
begin
......
///bytI:=bytI+1;
///bytI:=bytI+2;
///bytI:=bytI+3; end;
end;
2. for i := 10 downto 1 do
第一个问题,可以在循环内部调整
for i := 1 to 10 do begin
if i Mod 2 = 0 then Continue;
.....
end;
begin
///mod 求模
if byt mod (你要递增的数)= 0 then
begin
.....
///////
end;
end
里面加个inc(i,2)
1. for i := 1 to 10 step 2 do //1、3、5、7、9
2. for i := 10 downto 1 do
第二个问题:像大家说的一样,用downto就行。