{$IFDEF name}中Name是什么意思?是定義的吗?
解决方案 »
- 求delphi中word操作的文章或电子书~谢谢
- 关于"Ctrl","Alt"的按键问题????????????????
- 我用ADOtable 和adoconnection 来连接数据库。但在运行时老是提示出错:couldnot convert variant of type(null) into type(string
- ★★★书上的一道关于操作有类型文件的例子(文件指针什么的),看不懂,大虾来帮忙啊!
- 在D6中如何动态建立ACCESS的数据库,以及在库中添加表??下面一段代码建立的表在ACCESS中打不开,为何,显示格式不对??????求教,
- 50分索求一个IP地址编辑控件,请大家帮我。
- 怎样在文本中加入单引号和双引号
- 请问哪里有DevExpressVCL20070506的汉化?
- 如何从格式化的字符串中得到数据??
- 一个程序可以分为几个project来做吗?
- 送分!我在文件》新建》窗体中新建了一个窗体form2,却不能在form1中用show调用!为什么啊?
- 查询问题,请教高手
unit Unit1;interface//{$Define Debug}uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF Debug}
ShowMessage('调试状态');
{$ELSE}
ShowMessage('发布状态');
{$ENDIF}
end;end.
{$ELSE}
{$ENDIF}明白了!
这就可譲多個系統併存或一些垃圾合理化存在了(-_-)