La directive de compilation {$MODESWITCH } permet d'activer ou de désactiver les fonctionnalités du mode individuel sans modifier le mode de compilation actuel.

Ce commutateur est un commutateur global, et peut être utilisé partout où le commutateur {$MODE} peut être utilisé.

La syntaxe est la suivante :

{$MODESWITCH XXX} // Active
{$MODESWITCH XXX+}  // identique à  {$MODESWITCH XXX}
{$MODESWITCH XXX-}  // Désactive

La fonction XXX peut être l'une des suivantes :

Utilisez les classes pascal object.

Inclure automatiquement l'unité ObjPas.

Activez l'identificateur de result pour les résultats des fonctions.

Permettre la conversion automatique des chaînes de caractères à terminaison nulle en chaînes de caractères,

Autoriser l'utilisation du mot-clé CVAR.

Permettre l'utilisation de commentaires imbriqués.

Utiliser les variables procédurales classiques.

Utiliser des variables procédurales de type mac.

La déclaration de mise en œuvre et la déclaration de transmission doivent correspondre complètement.

Permettre la conversion silencieuse des pointeurs en variables procédurales.

Déréférencement automatique (silencieux) des pointeurs dactylographiés.

Permettre l'utilisation de l'initialisation et de la finalisation

Autoriser l'utilisation des ansistrings.

Permet d'utiliser le type de paramètre out.

Permettre l'utilisation de valeurs de paramètres par défaut.

Soutenir les directives d'indication (déprédation, plate-forme, etc.)

Permettre aux variables locales des méthodes de classe d'avoir les mêmes noms que les propriétés de la classe.

Autoriser l'utilisation des biens.

Autoriser les procédures en ligne.

Permettre le recours à des exceptions.

permettre l'utilisation d'enregistrements avancés (c'est-à-dire des enregistrements avec des méthodes)

Exemple:

  { Exemple d'advanced Records }
  TQRange = packed record
  private
    FLeft: QWord;
    FRight: QWord;
    procedure SetLeft(AValue: QWord);
    procedure SetRight(AValue: QWord);
  public
    property Left: QWord read FLeft write SetLeft;
    property Right: QWord read FRight write SetRight;
    class operator in (const AValue: QWord;const ARange: TQRange): boolean;
  end;

est par défaut une chaîne unicode.

Autoriser l'utilisation d'aides à la saisie.

Blocs de style C.

entrée/sortie comme requis par l'ISO pascal.

Paramètres de programme tels que requis par l'ISO pascal.

mod comme requis par l'ISO pascal.

Unary moins comme requis par l'ISO pascal.

• https://wiki.lazarus.freepascal.org/modeswitch
• https://www.freepascal.org/docs-html/3.2.0/prog/progsu106.html#x114-1150001.3.22