1.有 {$Define DEBUG } 则输出world 否则输出hello
{$Define DEBUG}
procedure TForm1.btn1Click(Sender: TObject);
var
msg:string;
begin
msg:='hello' ;
{$IFDEF DEBUG}
msg:='world' ;
{$ENDIF}
ShowMessage(msg);
end;