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;