No Delphi, também existem instruções pré-compiladas semelhantes a C. Embora este tipo de instrução só seja eficaz no arquivo único atual (também pode ser que o autor não entenda completamente o uso real deste tipo de instrução), este tipo de a instrução é útil para o trabalho de produção de várias versões (como publicar uma versão de aprendizagem da versão padrão) tem usos muito bons.
um. Introdução às instruções:
1. Diretiva DEFINIR:
Formato: {$DEFINE nome}
Descrição: Utilizado para definir um símbolo (Symbol) válido na unidade atual. definido
Você pode então usar as instruções IF DEF e IFNDEF para determinar se o símbolo existe.
2. Comando UNDEF:
Formato: {$nome UNDEF}
Descrição: Utilizado para cancelar um símbolo (Symbol) que foi definido na unidade atual. Esta diretriz e DEFINE
usados juntos.
3. Diretiva IFDEF:
Formato: {$nome IFDEF}
Nota: Se o nome após esta diretiva tiver sido definido, o segmento de código após esta diretiva até {$ELSE} ou {$ENDIF} será compilado.
4. Diretiva IFNDEF:
Formato: {$IFNDEF nome}
Nota: Se o nome após esta diretiva não for definido, o segmento de código após esta diretiva até {$ELSE} ou {$ENDIF} será compilado.
5. Instrução IFOPT:
Formato: {$interruptor IFOPT}
Nota: Se a opção após esta instrução tiver sido definida, o segmento de código após esta instrução até {$ELSE} ou {$ENDIF} será compilado.
Exemplo: {$IFOPT R+}
Writeln('Ativa a opção de verificação de intervalo ao compilar');
{$ENDIF}
6． OUTRA instrução:
Formato: {$ELSE}
Descrição: Determine se o segmento de código entre a instrução e {$ENDIF} deve ser compilado ou ignorado julgando a expressão condicional do prefixo Ifxxx.
7. Diretiva ENDIF:
Formato: {$ENDIF}
Descrição: Coopera com Ifxxx para indicar a posição final do segmento de código-fonte do segmento pré-compilado condicional.
dois. exemplo:
Escreva exemplos para realizar trabalhos de compilação sem segmentos de código, pré-definindo diferentes símbolos de compilação.
1. Crie um novo projeto Delphi e adicione um botão Button no formato da unidade Unit1.
2. Escreva o programa da seguinte forma:
unidade Unidade1;
interface
usa
Windows, Mensagens, SysUtils, Classes, Gráficos, Controles, Formulários, Diálogos,
StdCtrls;
tipo
TForm1 = classe(TForm)
Botão1: Botão T;
PRocedure FormCreate(Remetente: TObject);
procedimento Button1Click(Remetente: TObject);
privado
{Declarações privadas}
público
{Declarações públicas}
uma: Sequência;
fim;
var
Formulário1: TForm1;
implementação
{$R *.DFM}
{$DEFINE AAA} // Linha de definição.
procedimento TForm1.FormCreate(Remetente: TObject);
começar
a := 'Outro';
{$IFDEF AAA}
uma := 'AAA';
{$ENDIF}
{$IFDEFBBB}
a := 'BBB';
{$ENDIF}
fim;
procedimento TForm1.Button1Click(Remetente: TObject);
começar
Legenda := a;
fim;
fim.
{Observação: o texto em negrito é o código inserido}
3. Após compilar e executar, pressione o botão e você verá “AAA” exibido na barra de título do formulário. O programa compila a instrução a := 'AAA'.
4. Altere o segmento do programa que define a linha:
quando alterado para
{$DEFINEBBB}
Ao compilar e executar novamente, você verá "BBB" exibido na barra de título do formulário. O programa compila a instrução a := 'BBB'.
Ao indefinir uma linha ou mudar para
{$DEFINE NADA}
ou outros nomes, compile e execute novamente, e você verá "Outro" exibido na barra de título do formulário. O programa compila apenas a instrução a := 'Other'.
três. Como criar e alterar versões rapidamente:
Usando instruções de pré-compilação, ao criar várias versões do mesmo programa, você só precisa encontrar as diferentes unidades em cada versão, definir símbolos de versão unificada (Símbolos) em sequência e, em seguida, adicionar instruções de pré-compilação condicionais ao segmento do programa. compilar diferentes partes do programa durante a compilação real, o que tem um bom efeito na padronização do programa (definindo um símbolo de versão unificado) e na confidencialidade (versões diferentes compilam diferentes partes do programa).
Porém, como este tipo de diretiva pré-compilada só pode atuar na unidade atual, o inconveniente é que o símbolo de versão não pode ser definido uma vez em uma unidade comum, mas um símbolo de versão unificado deve ser definido em cada unidade. Você precisa ter certeza de que todos os símbolos de versão foram alterados para garantir a exatidão de cada versão. Para isso, você pode usar a função "Localizar em" do Delphi IDE. Arquivos..." (strings de pesquisa em vários arquivos) funcionam para localizar todos os arquivos e locais que definem símbolos de versão e, em seguida, alterá-los em sequência para garantir que todos os locais foram corrigidos.