Delphi 7的嵌套循环

Question

我刚学习Delphi 7并需要使用以下输出进行嵌套循环：

5
5 4
5 4 3
5 4 3 2
5 4 3 2 1

为此，我使用此代码

procedure TForm1.Button1Click(Sender: TObject);
var a, b : integer;
begin
  for a := 5 downto 1 do
  begin
    for b := 5 downto a do
    begin
      label1.caption := label1.caption + inttostr(b);
    end;
  end;
end;

我能得到的最好的是554543543254321。 我已经尝试在label1.caption中包含＃13＃10来创建一个新行，但它变成了这个：

5
5
4
5
4
3
5
4
3
2
5
4
3
2
1

任何人都可以帮助我？

Answer 1

你应该在外循环中添加＃13＃10，而不是内循环，即：

procedure TForm1.Button1Click(Sender: TObject);
var a, b : integer;
begin
  for a := 5 downto 1 do
  begin
    for b := 5 downto a do
    begin
      label1.caption := label1.caption + inttostr(b);
    end;
    label1.caption := label1.caption + '#13#10';
  end;
end;