Directives de compilation

Toutes les directives → https://www.freepascal.org/docs-html/prog/progse2.html

{$H+} → String = AnsiString
{$H-} → String = ShortString

Si {$LONGSTRINGS ON} est spécifié, le mot-clé String (sans spécification de longueur) sera traité comme AnsiString.

Ce commutateur correspond à l'option de ligne de commande -Sh.

Par défaut, l'utilisation des ansistrings est désactivée, ce qui correspond à {$H-}.

L'unité du système est compilée sans ansistrings, toutes ses fonctions acceptent des arguments à courte chaîne. Il en va de même pour toutes les unités RTL, sauf l'unité sysutils, qui est compilée avec ansistrings.

Cependant, l'instruction {$MODE} influence la valeur par défaut de {$H} :
une directive {$MODE DELPHI} implique une instruction {$H+},
tous les autres modes la désactivent.
Par conséquent, vous devez toujours mettre {$H+} après une directive mode.

La directive {$I filename} ou {$INCLUDE filename} indique au compilateur d'inclure les fichier filename. Les instructions lues à cet endroit seront insérées comme si elles se trouvaient dans le fichier actuel.

Si aucune extension n'est donnée, le compilateur ajoutera l'extension .pp au fichier et essaiera avec ce nom de fichier. Aucune autre extension n'est essayée.

Si le nom de fichier contient un espace, il doit être entouré de guillemets simples : {$I 'my file name'}

Si le nom du fichier est un astérisque (*), le compilateur utilisera le nom de l'unité ou du programme comme nom de fichier et essaiera de l'inclure. Le code suivant

unit testi ;  
interface  
{$I *}  
implementation
end.

incluera le fichier testi ou testi.pp s'ils existent.

Il faut faire attention à ce mécanisme, car le nom de l'unité devrait déjà correspondre au nom de fichier de l'unité, ce qui signifie que l'unité s'inclura très probablement de manière récursive.

Les fichiers inclus peuvent être imbriqués, mais pas à l'infini. Le nombre de fichiers est limité au nombre de descripteurs de fichiers disponibles pour le compilateur Free Pascal.

Contrairement au Turbo Pascal, les fichiers d'inclusion peuvent traverser des blocs. C'est-à-dire qu'un bloc peut commencer dans un fichier (avec un mot-clé Begin) et peut se terminer dans un autre (avec un mot-clé End).

La plus petite entité dans un fichier include doit être un jeton, c'est-à-dire un identifiant, un mot-clé ou un opérateur.

Le compilateur cherchera le fichier à inclure dans les emplacements suivants :

• Il cherchera dans le chemin spécifié dans le nom du fichier d'inclusion.
• Il cherchera dans le répertoire où se trouve le fichier source actuel.
• il recherchera dans tous les répertoires spécifiés dans le chemin de recherche du fichier d'inclusion.

Les répertoires peuvent être ajoutés au chemin de recherche du fichier à inclure avec l'option de ligne de commande -Fi.

Source : https://www.freepascal.org/docs-html/prog/progsu40.html

Voir → https://wiki.lazarus.freepascal.org/Conditional_compilation

Pour les classes qui sont compilées dans l'état {$M+} ou {$TYPEINFO ON}, le compilateur générera des informations sur le type d'exécution (RTTI).

Exemple:

{$M+}
  TPersistent = class(TObject,IFPObserved)
  private
  ...
  end;
{$M-}           

Toutes les classes descendantes d'une classe qui a été compilée dans l'état {$M+} recevront également des informations RTTI.
Toute classe qui est utilisée comme champ ou propriété dans une section publiée obtiendra également des informations RTTI.

Par défaut, aucune information de type Run-Time n'est générée pour les sections published, ce qui les rend équivalentes aux sections publiques.
Ce n'est que lorsqu'une classe (ou l'une de ses classes parentes) a été compilée dans l'état {$M+} que le compilateur génère des informations RTTI pour les méthodes et les propriétés de la section publiée.

L'objet TPersistent qui est présent dans l'unité de classes est généré dans l'état {$M+}.

La génération de RTTI permet aux programmeurs de diffuser des objets en continu et d'accéder aux propriétés publiées des objets, sans connaître la classe réelle de l'objet. L'information sur le type d'exécution est accessible par l'unité TypInfo, qui fait partie de la bibliothèque d'exécution Free Pascal.

Remarque : Le système de diffusion en continu mis en œuvre par Free Pascal exige que tous les composants diffusables en continu soient des descendants de TPersistent. Il est possible de créer des classes avec des sections publiées qui ne descendent pas de TPersistent, mais ces classes ne seront pas diffusées correctement par le système de diffusion en continu de l'unité Classes.

Source:https://www.freepascal.org/docs-html/prog/progsu47.html

Voir la page consacrée : $MODESSWITCH