GUI程序中使用Write语句调试

Lazarus GUI程序中使用Write语句调试

比如像VB 下的 Debug.print 可直接在立即窗口中打印出调试内容

其实可以使用

 WriteLn('XXXX ', XXX);
 Write('XXXXXX');

但是在网上发现不少新人使用会弹出:
project project1 raised exception class 'EInOutError' with message:file not open

异常通知

只需要在文件头部加入预编译指令

 {$APPTYPE CONSOLE}

这样调试时会弹出一个类dos对话框,输出调试的内容