请问delphi中写入循环程序怎么实现在memo中能逐条把程序列出来?
发布网友
发布时间：2024-10-24 04:42
共1个回答
热心网友
时间：2024-10-24 09:29
while (i<=4) do
begin
memo.lines.add(format('%d=%d+%d',[sum+i,sum,i]));
sum := sum + i;
i := i +1;
end;
