F
feather
Unregistered / Unconfirmed
GUEST, unregistred user!
也就是每次循环时不是只递增,递减1,而是按我给的值递增递减
S
stuwe
Unregistered / Unconfirmed
GUEST, unregistred user!
要是C++就容易了
Pascal我不大懂.
Pascal我不大懂.
L
lanbing1400
Unregistered / Unconfirmed
GUEST, unregistred user!
变量，WHILE DO
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
pascal里面好象没有吧，可以用repeat或while代替
C
chenzheng770101
Unregistered / Unconfirmed
GUEST, unregistred user!
pascal 里没有。
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i,n,K,x:integer;
K:=0;x:=3;n:=100;
begin
for i:=1 to n do
begin
inc(k,X);
/// 用 K
end;
i,n,K,x:integer;
K:=0;x:=3;n:=100;
begin
for i:=1 to n do
begin
inc(k,X);
/// 用 K
end;
C
chen_jianxiong
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么非用For不可，for的效率也没有while高呀。
L
lzhuan
Unregistered / Unconfirmed
GUEST, unregistred user!
object pascal 里没有，换种方法吧
G
gxcooo
Unregistered / Unconfirmed
GUEST, unregistred user!
建议用while
M
manmanchong
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中没有这种功能，可以参照如下的贴子：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1492543
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1492543
W
wumeng
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中没有这种功能。
D
digitalife
Unregistered / Unconfirmed
GUEST, unregistred user!
同决楼上的，用for的话，除非你在for循环体中用i:=i+1;的方式变成step = 2
L
lxn2philips
Unregistered / Unconfirmed
GUEST, unregistred user!
同意楼上
B
brown0432
Unregistered / Unconfirmed
GUEST, unregistred user!
有设置步长的但是不知道怎么用..也忘记了..怎么写..一定有..
Q
qianwt
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i: Integer;
begin
for i := 0 to 100 do
begin
Inc(i, 步长-1);
.....
end;
end;
上面的方法好象在Delphi3.0以前是支持的，现在你还是用while吧
i: Integer;
begin
for i := 0 to 100 do
begin
Inc(i, 步长-1);
.....
end;
end;
上面的方法好象在Delphi3.0以前是支持的，现在你还是用while吧
G
gold8
Unregistered / Unconfirmed
GUEST, unregistred user!
Turbo pascal 5 ,6 ,7 都可以改 控制变量
DELHPI 以后就和 经典Pascal 一样不能改 for 的 控制变量了
DELHPI 以后就和 经典Pascal 一样不能改 for 的 控制变量了
D
delphiandoracle
Unregistered / Unconfirmed
GUEST, unregistred user!
多定义一个变量不就解决问题了吗
S
stuwe
Unregistered / Unconfirmed
GUEST, unregistred user!
var i,n:integer;
begin
n:=3;//设置步长
for i:=0 to 100 do
begin
if (i mod n)=0 then
begin
ShowMessage(inttostr(i));
end;
end;
begin
n:=3;//设置步长
for i:=0 to 100 do
begin
if (i mod n)=0 then
begin
ShowMessage(inttostr(i));
end;
end;