Echa un vistazo a
esta página.
Código Delphi
[-]var
text : string;
begin
text := 'We are in test mode';
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$EndIf}
{$UnDef TESTMODE}
text := 'We are out of test mode';
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$EndIf}
end;
Código Delphi
[-]begin
{$Define DANGERMODE}
{$IfNDef DANGERMODE}
ShowMessage('We are out danger at present');
{$Else}
ShowMessage('We are in danger mode!');
{$EndIf}
{$UnDef DANGERMODE}
end;