Delphi里有没有类似C里＃define的命令？

[songyan]

如题

[lihuasoft]

const

[wudi_1982]

在Delphi中，也有与C相似的预编译指令
一．指令介绍：
1．DEFINE指令：
格式：{$DEFINE 名称}
说明 ：用于定义一个在当前单元有效的符号（Symbol）。定义了之后可以使用IF DEF和IFNDEF指令来判断该符号是否存在。
2．UNDEF指令：
格式：{$UNDEF 名称}
说明：用于取消一个在当前单元已经定义的符号（Symbol）。该指令和DEFINE配合使用。
3．IFDEF指令：
格式：{$IFDEF 名称}
说明：如果该指令后的名称已经定义，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
4．IFNDEF指令：
格式：{$IFNDEF 名称}
说明：如果该指令后的名称没有定义，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
5．IFOPT指令：
格式：{$IFOPT 开关}
说明：如果该指令后的开关已经设立，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
举例：

{$IFOPT R+}
Writeln('编译时打开范围检查开关');
{$ENDIF}

6．ELSE指令：
格式：{$ELSE}
说明：通过判断前缀Ifxxx的条件式来确定该指令到{$ENDIF}之间的代码段是否应该被编译或者忽略掉。
7．ENDIF指令：
格式：{$ENDIF}
说明：和Ifxxx配合，指明条件预编译段源代码段的结束位置。
二．范例：
编写例子，通过预先定义不同的编译符号，进行不用代码段的编译工作。
1．新建一个Delphi项目，在Unit1单元的窗体上添加一个Button按钮。
2．编写程序如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
a : String;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{$DEFINE AAA} // 定义行。

procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Other';
{$IFDEF AAA}
a := 'AAA';
{$ENDIF}
{$IFDEF BBB}
a := 'BBB';
{$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := a;
end;

end.
{注：粗体字部分为输入的代码}

3．编译后运行，按下Button，则看到窗体标题栏显示“AAA”。程序编译了a := ’AAA’的语句。
4．改变定义行的程序段：
当改为

{$DEFINE BBB}

时，再次编译运行，则看到窗体标题栏显示“BBB”。程序编译了a := ’BBB’的语句。
当取消定义行或改为

{$DEFINE NOTHING}

或其他名称时，再次编译运行，则看到窗体标题栏显示“Other”。程序只编译了
a := 'Other'的语句。



三．如何快速的制作和更改版本：

使用预编译指令，在制作同一个程序的多个版本时，只需找出各版本中有区别的单元，依次定义统一的版本符号（Symbol），然后在程序段中加入条件预编译指令，就可以在实际编译中取舍编译不同的程序部分，这样对于程序的规范性（定义统一的版本符号）和保密性（不同的版本编译不同的程序部分）有很好的作用。 然而，由于该类预编译指令只能作用于当前单元，所以不便之处在于不能在一个公共单元定义一次版本符号，而必须在各单元中定义统一版本符号才行，故此，在更换版本时，需要确定所有的版本符号都已改变，这样才能保证各版本的正确性，对此，可以使用Delphi IDE的“Find in Files…”（多个文件中查找字符串）的功能，找出所有定义版本符号的文件和位置，然后依次更改，保证所有位置已经改正。

一般是这样的：

{$HINTS OFF} <----OFF表示关闭
procedure Test;
var
I: Integer;
begin
end;
{$HINTS ON} <----ON表示打开

也有用:

{$I+} <----表示打开
{$I-} <----表示关闭

这个编译指令是对I/O的检查。

更具体的请查阅相关资料。

{$HINTS ON} 或是 {$HINTS OFF} <----是否给出提示
{$WARNINGS ON} 或是 {$WARNINGS OFF} <----是否给出警告

[songyan]

to lihuasoft() ：const是定义常量，和c里的＃define不同。

to wudi_1982(闲半年了，要挣点钱过年了！) :还是不知道用哪个。

[阿发伯]

C/C++的#define是用来定义宏的, 在C/C++中,宏的作用有2个,一是直接用在代码中;一是用于条件编译。在Delphi中没有宏的概念，所以没有完全类似#define的指令。如果只是用来条件编译，1、2楼的方法都是可行的。如果要类似宏的作用，只能用函数替代了，const也可替代部分。