Delphi中使用Dos窗口输出调试信息

在项目文件 *.DPR （Project->View Source）  里加上
{$APPTYPE   CONSOLE}  

然后，在需要输出处加上

Writeln(‘your debug message’);

 

另一方法是从网上找到的，未测试

 

在Delphi中输出后台调试信息

有些时候，我们需要输出调试信息，但又不在界面上，也不希望弹出窗口中断执行，
这时，只要用OutputDebugString就可以了，然后在View|Debug Window|Event Log查看结果即可。

例子：

var S : string;
for I:= 1 to 10000 do
begin
  ....

  OutputDebugString(PChar(S));
end;