谁能说出{$DEFINE}是啥意思？立即给分！

[zhuxiaozhong]

谁能说出{$DEFINE}是啥意思？

[idilent]

Defines a conditional symbol with the given name. The symbol is recognized for the remainder of the compilation of the current module in which the symbol is declared, or until it appears in an {$UNDEF name} directive. The {$DEFINE name} directive has no effect if name is already defined.

我认为是delphi比较高级的功能，使用该语句可以替代program/options/directorys and conditionals中的条件定义。

参考
unit Unit1;

interface

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}
{$define test}//you can disable and enable this line to see what happen.you must rebuild the project after you change it
procedure TForm1.Button1Click(Sender: TObject);
begin

{$ifdef test}
ShowMessage('define');
{$endif}
end;

end.

[idilent]

为什么我知道的分都这么少？

哈哈

[kangji]

条件编译

[liuhelin]

不想给分就算了
还立即给分！

[空中居士]

看来一分都不容易得，学习来了。