1.概述
1 | for to | 从小到大的循环,正序 |
2 | for downto | 从大到小的循环,倒序 |
2.语句
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=10 downto 0 do
begin
Memo1.Lines.Add(IntToStr(i));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 10 do
begin
Memo2.Lines.Add(IntToStr(i));
end;
end;
3.实践图片