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

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.  
{注：粗体字部分为输入的代码}  

{$DEFINE  BBB}  

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

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

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