Question

请问delphi中写入循环程序怎么实现在memo中能逐条把程序列出来？

比如我写入循环程序：
Var
I,sum:integer ;
Begin
Sum:=0;
I:=1;
While(I<=4) do
Begin
Sum:=sum+I;
I:=I+1;
End;
End;
怎样才能实现在memo中显示出来是：
1=0+1
3=1+2
6=3+3
10=6+4

Answer 1

while (i<=4) do
begin
memo.lines.add(format('%d=%d+%d',[sum+i,sum,i]));
sum := sum + i;
i := i +1;
end;

追问

多重While嵌套循环也是这样的吗？谢谢