Cómo usar directivas precompiladas en Delphi

Autor：Eve Cole Fecha de actualización：2025-02-28 10:32:01

Mi página de inicio: http://www.tommstudio.com/

En Delphi, también hay instrucciones precompiladas similares a C. Aunque este tipo de instrucciones solo es válido en el archivo único actual (también puede ser que el autor no comprenda completamente el uso real de este tipo de instrucciones), este tipo de Las instrucciones son para el trabajo de producción múltiple.

uno. Instrucción de instrucciones:

1. Definir instrucción:

Formato: {$ Define Name}

Descripción: Se utiliza para definir un símbolo (símbolo) que sea válido en la unidad actual. Después de la definición, puede usar las instrucciones IFDEF e IFNDEF para determinar si existe el símbolo.

2. Directiva de Underef:

Formato: {$ undef name}

Descripción: Se utiliza para cancelar un símbolo (símbolo) que se ha definido en la unidad actual. Esta directiva se usa junto con Define.

3. Instrucción IFDEF:

Formato: {$ ifdef name}

Descripción: Si el nombre después de la directiva ya está definida, el segmento de código se compila hasta {$ else} o {$ endif} después de que se compila la directiva.

4. Instrucción IFNDEF:

Formato: {$ ifndef name}

Nota: Si el nombre después de la directiva no se define, el segmento de código se compila hasta {$ else} o {$ endif} después de que se compila la Directiva.

5. INSTRUCCIÓN DE IFOPT:

Formato: {$ ifopt switch}

Nota: Si el conmutador después de esta instrucción se ha establecido, compile el segmento de código hasta {$ else} o {$ endif} después de compilar la instrucción.

Por ejemplo:


 {$ Ifoptr+}
 WriteLn ('Abra el interruptor de verificación de rango en el tiempo de compilación');
 {$ Endif}

6. Más instrucción:

Formato: {$ else}

Nota: Determine si el segmento de código entre la instrucción y {$ endif} debe compilarse o ignorarse juzgando la expresión condicional del prefijo ifxxx.

7. Instrucción endif:

Formato: {$ endif}

Descripción: Coopere con IFXXX, especifique la posición final del segmento del código fuente del segmento precompilado condicional.

dos. ejemplo:

Escriba un ejemplo para predefinir diferentes símbolos de compilación para compilar sin segmentos de código.

1. Cree un nuevo proyecto de Delphi y agregue un botón en forma de unidad Unidad1.

2. El programa está escrito de la siguiente manera:


 Unidad Unidad1;
 interfaz
 usos
 Windows, mensajes, sysutils, clases, gráficos, controles, formularios, diálogos, stdctrls;
 tipo
 TForm1 = class (tForm)
 Botón 1: tbutton;
 Procedimiento formulcreate (remitente: tobject);
 procedimiento botón1Click (remitente: tobject);
 Privado
 {Privatedeclarations}
 público
 {PublicDeclarations}
 a: cadena ;
 fin ;
 varilla
 Form1: tform1;
 Implementación
 {$ R*.dfm}
 {$ DefeaAA} // Defina la fila.
 procedimiento tForm1.FormCreate (remitente: tobject);
 Comenzar
 a: = 'otro';
 {$ Ifdefaaa}
 a: = 'aaa';
 {$ Endif}
 {$ Ifdefbbb}
 a: = 'bbb';
 {$ Endif}
 fin ;
 procedimiento tForm1.Button1Click (remitente: tobject);
 Comenzar
 Leyenda: = a;
 fin ;
 fin.
 {Nota: la parte en negrita es el código ingresado}

3. Después de compilar, ejecute, presione el botón y verá que la barra de título del formulario muestra "AAA". El programa compila la declaración A: = 'AAA'.

4. Cambie el bloque de la fila definida:

Cuando se cambió a


 {$ DefineBBB}

Al compilar y ejecutar nuevamente, verá que la barra de título del formulario muestra "BBB". El programa compila la declaración A: = 'BBB'.

Cuando la fila indefinida o cambia a

{$ DefenThing}

Si tiene otro nombre, compile y vuelva a ejecutar, verá que la barra de título del formulario muestra "Otro". El programa solo se compila

a:='Other'的语句。

tres. Cómo hacer y cambiar rápidamente las versiones:

Usando instrucciones precompiladas, al hacer múltiples versiones del mismo programa, solo necesita encontrar las diferentes unidades en cada versión, defina el símbolo de la versión unificada (símbolo) a su vez y luego agregar las instrucciones precompiladas condicionales al bloque de programa diferente. Las piezas del programa se pueden compilar en la compilación real, que puede tener un buen efecto en la estandarización del programa (definiendo símbolos de la versión unificada) y la confidencialidad (componiendo diferentes piezas del programa con diferentes versiones).

Sin embargo, dado que este tipo de instrucción precompilada solo puede actuar en la unidad actual, el inconveniente es que el símbolo de la versión no se puede definir una vez en una unidad común, pero el símbolo de la versión unificada debe definirse en cada unidad. , Es necesario asegurarse de que todos los símbolos de la versión se hayan cambiado para que se pueda garantizar la corrección de cada versión. Encuentre todos los archivos que definen los símbolos de la versión.

Generalmente se ve así:


 {$ Hintsoff} <---- apagado significa cerrar
 prueba de procedimiento ;
 varilla
 I: entero;
 Comenzar
 fin ;
 {$ Hintson} <---- en medios para abrir

También útil:


 {$ I+} <---- significa abierto
 {$ I-} <---- significa cerrado

Esta instrucción de compilación es un cheque de E/S.

Para obtener información más específica, consulte la información relevante.


 {$ Hintson} o {$ hintsoff} <---- si se da un aviso
 {$ Warningson} o {$ Warningsoff} <---- si da una advertencia

Un error indica que su código no se puede compilar correctamente. Si puede compilar y pasar el código Delphi simplemente ingresando el código, eso es genial.