1.格式: for var i:=0 to 10 do···或for var i:=0 downto 10 do···;特别说明:每次只能递增1或递减1,步长值不能改变,这点不如while循环灵活。
2.打开IDE,新建VCL应用,添加一个button1,一个memo1,双击button1,编写代码:
begin
// 简单for循环(递增+1)
Memo1.Lines.Add('递增+1:');
for var i: integer := 0 to 10 do
begin
Memo1.Lines.Add(i.ToString);
end;
// 简单for循环(递减-1)
Memo1.Lines.Add('递减-1:');
for var i: integer := 10 downto 0 do
begin
Memo1.Lines.Add(i.ToString);
end;
Memo1.Lines.Add('有跳过和跳出语句的for循环');
// 有跳过和跳出语句的for循环
for var i: integer := 0 to 10 do
begin
if i = 3 then
begin
Memo1.Lines.Add('跳过当前循环');
Continue;
end;
Memo1.Lines.Add(i.ToString);
if i = 8 then
begin
Memo1.Lines.Add('跳出循环');
Break;
end;
end;
end;