如何调试，将结果保存到某个窗口，我可以直接用 CTRL+C从这里COPY 出调试值

Question

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
  showmessage(inttostr(i));
end;end.不知道各位有VB经验么？
VB 中有 DEBUG.PRINT 
我就是要实现类似 DEBUG.PRINT 的方法
这里每过一个I,就会跳出一个对话框要我按确定，我要求不要每次都跳出来，运行结束后，一次性把
1
2
3
4
5
6
7
8
9
10
这样的数字显示在某个地方
VB 中会有一个“立即”窗口显示这些内容。抱歉，因为我只用过 VB ，所以只能用 VB 来比较了

Answer 1

可以用TextOut函数来显示...也可以
var
i:integer;
begin
for i:=1 to 10 do
  ListBox1.Items.Add(inttostr(i));
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
  OutputDebugString(Pchar(Inttostr(i)));
end;开启 Viewv | Debug windows | Event log