| 查看: 726 | 回复: 0 | |||
[交流]
【转帖】妙用Delphi编译器开关为程序增加便捷的控制台调试/日志窗口
|
|
在编写WIN32的窗口程序时，由于其不同于命令行的运行方式，我们经常为调试系统而被折磨的几近抓狂。因此很多通用的方法被设计出来： 设置断点是个好主意，但很多业务层的代码无法有效的调试。 使用对话框、LIST、文件来记录日志，无故增加了设计量不说，每次Release的时候，还要一个一个删除这些调试信息，虽然使用一些配置文件可以达到开关调试的目的，但这些额外的代码却也为系统带来了很多无用的代码。 那么，有没有更加便捷的方法呢？答案是肯定的。 Delphi在编写WIN32程序时，为我们提供了一系列非常有用的编译器指令，那么我们可以用它们来为我们的程序增加一个随叫随到，随放随消的控制台调试窗口，这样会让我们的调试信息更加清晰的反映出来。 我们用到三个delphi的编译器指令：{$APPTYPE}、{$IFDEF}、{$ENDIF} {$APPTYPE}，可以设置程序的运行方式，有两种形式，{$APPTYPE GUI}说明程序是普通窗口模式，而{$APPTYPE CONSOLE}说明程序是命令行控制台模式的，如果在普通窗口程序中会增加一个命令行控制台窗口 {$IFDEF}和{$ENDIF}，是条件编译语句 使用以上的编译器指令，我们可以轻松的实现我们的目标（对于这些编译器指令的详细说明可以参见delphi的官方文档），OK，Let's go！ 首先，建立一个UNIT，将其命名为ucTConsoleDebuger（这是我的命名方式，uc代表为类声明的unit，后面是类名），并建立TConsoleDebuger类，代码及解释如下： unit ucTConsoleDebuger; interface type TConsoleDebuger = class(TObject) public class procedure DebugThis(debugMsg: string); static; //输出一条信息 end; implementation class procedure TConsoleDebuger.DebugThis(debugMsg: string); begin {$IFDEF CONSOLE} //编译器条件开关，后面的CONSOLE为判断是否为控制台程序，其值是{$APPTYPE}的值 Writeln(debugMsg); {$ENDIF} //编译器条件开关结束 end; end. TConsoleDebuger类很简单，它只是实现了一个输出函数，而真正的核心在于两条编译器开关。 {$IFDEF CONSOLE} 判断程序的类型，如果是控制台程序，则编译其与{$ENDIF}间的代码（注：由于普通窗口程序中，没有设置writeln的Output流定向，所以执行writeln会出现I/O错误），否则不会编译。 这时，我们只需将{$APPTYPE CONSOLE}放到工程文件的最前端，编译执行程序，就会发现我们的程序多出了一个控制台窗口，所有的writeln信息都会输出到这个窗口。嗯，就是这么简单。 当我们的程序发布时，只需去掉{$APPTYPE CONSOLE}，控制台窗口就会消失，那个函数的代码也不会被编译到程序中，嗯，清爽。 当然，这只是一个比较简单的调试方法，一般的调试已足够使用。你还可以使用{$DEFINE XXX}和{$IFDEF XXX} 结合来构造你的调试代码（XXX时任意变量名）。 这里所提到的些许技巧也只是抛砖引玉，你完全可以活用这些编译器指令来设计更加强大、便捷的调试代码。 |
回复此楼» 猜你喜欢
一志愿重庆大学085700资源与环境总分308求调剂
已经有6人回复
-
268求调剂
已经有7人回复
-
302求调剂
已经有11人回复
-
306求调剂
已经有4人回复
-
材料学学硕080502 337求调剂-一志愿华中科技大学
已经有4人回复
-
求调剂
已经有6人回复
-
313求调剂
已经有3人回复
-
南昌大学材料专硕311分求调剂
已经有6人回复
-
316求调剂
已经有6人回复
-
346求调剂[0856]
已经有7人回复
