Section courante

A propos

Section administrative du site

 Langage  Installation  Elément  Tutoriel  Programmation  Bibliothèque  Cadre d'application  API  GUI  Projet  Composante  IDE  Outils  Annexe  Aide 
ABAP/4
Ada
Assembleur
Assembly & bytecode
ASP (Active Server Pages)
Basic
C
C++
C# (C Sharp)
Cobol
ColdFusion
Fortran
HTML
Java
JavaScript
LISP
Logo
LotusScript
Oberon
Pascal
Perl
PHP
PL/1
Prolog
Python
Rebol
REXX
Ruby
SAS
NoSQL
SQL
Swift
X++ (Axapta)
GNAT
SMALLAda
VHDL
Assembleur 370
Assembleur 1802
Assembleur 4004
Assembleur 6502
Assembleur 6800
Assembleur 68000
Assembleur 8080 et 8085
Assembleur 8089
Assembleur 80x86
Assembleur AGC4
Assembleur ARM
Assembleur DPS 8000
Assembleur i860
Assembleur Itanium
Assembleur MIPS
Assembleur PDP-11
Assembleur PowerPC
Assembleur RISC-V
Assembleur SPARC
Assembleur SuperH
Assembleur UNIVAC I
Assembleur VAX
Assembleur Z80
Assembleur Z8000
Assembleur z/Architecture
ASSEMBLER/MONITOR 64
Micol Assembler
GFA Assembler
A86
MASM (Macro Assembler)
TASM (Turbo Assembler)
CIL
Jasmin
LLVM
MSIL
Parrot
P-Code (PCode)
SWEET16
G-Pascal
ASP 1.0
ASP 2.0
ASP 3.0
ASP.NET
ASP.NET Core
ABasiC (Amiga)
Adam SmartBASIC
Altair BASIC
AmigaBASIC (Amiga)
AMOS Basic (Amiga)
Atari Basic (Atari 400, 600 XL, 800, 800XL)
Basic Apple II (Integer BASIC/APPLESOFT)
Basic Commodore 64 (CBM-BASIC)
Basic Commodore 128 (BASIC 7.0)
Basic Commodore VIC-20 (CBM-BASIC 2.0)
Basic Coco 1 (Color Basic)
Basic Coco 2 (Extended Color Basic)
Basic Coco 3 (Extended Color Basic 2.0)
BASICA (PC DOS)
Basic Pro
BBC BASIC
Blitz BASIC (Amiga)
DarkBASIC
Dartmouth BASIC
GFA-Basic (Atari ST/Amiga)
GWBASIC (MS-DOS)
Liberty BASIC
Locomotive BASIC (Amstrad CPC)
MSX-Basic
Omikron Basic (Atari ST)
Oric Extended Basic
Power Basic
Quick Basic/QBasic (MS-DOS)
Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
ST BASIC (Atari ST)
Turbo Basic
Vintage BASIC
VBScript
Visual Basic (VB)
Visual Basic .NET (VB .NET)
Visual Basic pour DOS
Yabasic
BeckerBASIC
SIMONS' BASIC
Basic09 d'OS-9
Disk Extended Color Basic
Basic09 d'OS-9
Disk Extended Color Basic
Access
Excel
Visual Basic pour Windows
Visual Basic .NET pour Windows
C Shell Unix (csh)
C pour Amiga
C pour Atari ST
C pour DOS
C pour Falcon030
C pour GEMDOS (Atari ST)
C pour Linux
C pour PowerTV OS
C pour OS/2
C pour Unix
C pour Windows
Aztec C
CoCo-C
GNU C
HiSoft C
IBM C/2
Introl-C
Lattice C
Microsoft C
MinGW C
MSX-C
Open Watcom C
OS-9 C Compiler
Pure C
Quick C
Turbo C
HiSoft C for Atari ST
HiSoft C for CP/M (Amstrad CPC)
C++ pour OS/2
C++ pour Windows
Borland C++
C++Builder
IBM VisualAge C++
Intel C++
MinGW C++
Open Watcom C++
Symantec C++
Turbo C++
Visual C++
Visual C++ .NET
Watcom C++
Zortech C++
C# (C Sharp) pour Windows
Apple III Cobol
Microsoft Cobol
BlueDragon
Lucee
OpenBD
Railo
Smith Project
Microsoft Fortran
WATFOR-77
CSS
FBML
Open Graph
SVG
XML
XSL/XSLT
LESS
SASS
GCJ (GNU)
JSP
Jython
Visual J++
Node.js
TypeScript
AutoLISP
ACSLogo
LotusScript pour Windows
Amiga Oberon
Oberon .NET
Apple Pascal
Delphi/Kylix/Lazarus
Free Pascal
GNU Pascal
HighSpeed Pascal
IBM Personal Computer Pascal
Lisa Pascal
Maxon Pascal
MPW Pascal
OS-9 Pascal
OSS Personal Pascal
Pascal-86
Pascal du Cray Research
Pascal/VS
Pascal-XT
PURE Pascal
QuickPascal
RemObjets Chrome
Sun Pascal
THINK Pascal
Tiny Pascal (TRS-80)
Turbo Pascal
UCSD Pascal
VAX Pascal
Virtual Pascal
Turbo Pascal for CP/M-80
Turbo Pascal for DOS
Turbo Pascal for Macintosh
Turbo Pascal for Windows
CodeIgniter (Cadre d'application)
Drupal (Projet)
Joomla! (Projet)
Phalanger (PHP .NET)
phpBB (Projet)
Smarty (balise)
Twig (balise)
Symfony (Cadre d'application)
WordPress (Projet)
Zend (Cadre d'application)
PL360
PL/M-80
PL/M-86
Turbo Prolog
CPython
IronPython
Jython
PyPy
AREXX
Regina REXX
JMP
Btrieve
Cassandra
Clipper
CouchDB
dBASE
Hbase
Hypertable
MongoDB
Redis
Access
BigQuery
DB2
H2
Interbase
MySQL
Oracle
PostgreSQL
SAP HANA
SQL Server
Sybase
U-SQL
Installation de Free Pascal
Installation de CodeTyphon Studio
Installation de Lazarus
Installation de Pascal XE
Introduction
Les remarques
Les opérateurs
Les instructions conditionnelles
Les instructions de boucles
Les instructions d'exceptions
Type de données élémentaires
Référence des unités
Référence de mots réservés (mots clefs)
Référence de procédures et fonctions
Référence des directives de compilation
Référence de classes
BASEUNIX
CLASSES
CMEM
CRT
CTHREADS
CWSTRING
GRAPH
MATH
SYSTEM
Référence de procédures et fonctions avec prototype
Les jetons
Les constantes
Directives du compilateur
Utiliser des conditions, des messages et des macros
Utilisation du langage de programmation assembleur
Code généré
Prise en charge d'Intel MMX
Problèmes de code
Problèmes de liaison
Problèmes de mémoire
Chaînes de caractères de ressources
Programmation de processus léger
Optimisations
Programmation de bibliothèques partagées
Utiliser les ressources Windows
Bonjour
Affichage
Astronomie
Biochimie
Électricité
Fichiers
Finance
Géographie
Géométrie
Histoire
Jeux & stratégies
Mathématique
Médicale
Météorologie
Océanographie
Sport
Temps
Tri
Trigonométrie
Validation
«DRAW» du BASIC
Phase lunaire
Calcul du calcium corrigé
Calcul le taux d'alcoolémie
Comparaison de séquence de polypeptides
Tarif d'une piscine pour 1 mois
Texte séquentiel
Liste des fichiers
IPaymt/Interet
NPer
PPaymt/Principal
Distance en Km entre deux longitudes et latitudes
Aire d'un cercle
Aire d'une surface de prisme rectangulaire
Aire d'un triangle
Distance entre deux points
Treillis
Chiffre romain
Pac-Man
Tetris
Tours d'Hanois
Ackermann
Exp
Factoriel
Fibonacci
Log
Nombre premier
Odd
Random
Sqrt
Triangle Pascal
Hauteur utérine
Unité de mesure
Fréquence des vagues
Hockey
Année bissextile
Calendrier
Date de la Pâque
Heure courante
Horloge à aiguille
FirstDayOfMonth
Tri à bulle (Bubble Sort)
Tri Shell Sort
ArcCos
ArcSin
Atn/ATan/ArcTan
Cos
Sin
Courriel
Extension de nom de domaine
Ararat Synapse
CryptoLib4Pascal
FBLib (Firebird Pascal Library)
FCL (Free Component Library)
GraphiX
HashLib4Pascal
INDY (Internet Direct)
LCL (Lazarus Component Library)
QuickLib
QuickLogger
WinGraph
ZeosLib
Daraja (cadre d'application pour Web)
Fano Framework
Free Spider
Horse
Synopse mORMot
tiOPF
CAI NEURAL API
tensorflowforpascal
fpGUI
MOS
Corail
Double Commander
LDAP Admin for Linux
MSDOS-0
Transmission Remote GUI
UNIX-0
Python for Delphi (P4D)
CodeTyphon Studio
Free Pascal IDE
Lazarus
Pascal XE
GNU Debugger (GDB)
Delp
FPCMake
H2Pas
PPDep
PPUDump
PPUMove
PtoP
Références des codes d'erreur
Anatomie d'un fichier unité
Structure de l'arborescence des sources du compilateur et RTL
Limites du compilateur
Modes du compilateur
Utiliser fpcmake
Compilation du compilateur
Compilateur définit lors de la compilation
Préface
Notes légal
Dictionnaire
Recherche

Les constantes

Tout comme dans Turbo Pascal, Free Pascal prend en charge les constantes ordinaires et typées. Ils sont déclarés dans un bloc de déclaration constante dans une déclaration d'unité, de programme ou de classe, de fonction ou de procédure.

Constantes ordinaires

Les déclarations de constantes ordinaires sont construites à l'aide d'un nom d'identifiant suivi d'un jeton «=» et suivi d'une expression facultative composée de combinaisons légales de nombres, de caractères, de valeurs booléennes ou de valeurs énumérées, selon le cas. Le diagramme de syntaxe suivant montre comment construire une déclaration légale d'une constante ordinaire.

Le compilateur doit être capable d'évaluer l'expression dans une déclaration constante au moment de la compilation. Cela signifie que la plupart des fonctions de la bibliothèque Run-Time ne peuvent pas être utilisées dans une déclaration constante. Des opérateurs tels que +, -, *, /, not, and, or, div, mod, ord, chr, sizeof, pi, int, trunc, round, frac, odd peuvent cependant être utilisés.

Lorsqu'une constante ordinaire déclarée précédemment est utilisée dans le code, le compilateur insérera la valeur réelle de la constante au lieu du nom de la constante. Autrement dit, les deux morceaux de code suivants sont entièrement équivalents :

  1. Const
  2.  One=1;
  3.  
  4. BEGIN
  5.  WriteLn(One);
  6. END.

Ce qui précède produira le même code que si l'on avait écrit :

  1. BEGIN
  2.  WriteLn(1);
  3. END.

Seules les constantes des types suivants peuvent être déclarées :

Les éléments suivants sont toutes des déclarations constantes valides :

  1. Const
  2.  e = 2.7182818; { Constante de type réel. }
  3.  a = 2; { Constante de type Ordinal (Integer). }
  4.  c = '4'; { Constante de type de caractère. }
  5.  s = 'Ceci est une chaîne de caractères constante'; {Constante de type String.}
  6.  sc = chr(32)
  7.  ls = SizeOf(Longint);
  8.  P = Nil;
  9.  Ss = [1,2];

L'attribution d'une valeur à une constante ordinaire n'est pas autorisée. Ainsi, compte tenu de la déclaration précédente, ce qui suit entraînera une erreur du compilateur :

  1. Const
  2.  s='Ceci est une chaîne de caractères constante'; {Constante de type String.}
  3.  
  4. BEGIN
  5.  s:='Une autre chaîne de caractères';
  6. END.

Pour les constantes de chaîne de caractères, le type de chaîne dépend de certains commutateurs du compilateur. Si un type spécifique est souhaité, une constante typée doit être utilisée, comme expliqué dans la section suivante.

Avant la version 1.9, Free Pascal ne prenait pas correctement en charge les constantes 64 bits. Depuis la version 1.9, des constantes 64 bits peuvent être spécifiées.

Constantes typées

Parfois, il est nécessaire de spécifier le type d'une constante, par exemple pour les constantes de structures complexes. Leur définition est assez simple :

Contrairement aux constantes ordinaires, une valeur peut leur être attribuée au moment de l'exécution. Il s'agit d'un ancien concept de Turbo Pascal, ayant été remplacé par le support des variables initialisées.

La prise en charge de l'attribution de valeurs aux constantes typées est contrôlée par la directive {$J} : elle peut être désactivée, mais est activée par défaut (pour la compatibilité Turbo Pascal). Les variables initialisées sont toujours autorisées.

Remarque : Il convient de souligner que les constantes saisies sont automatiquement initialisées au démarrage du programme. Cela est également vrai pour les constantes typées locales et les variables initialisées. Les constantes typées locales sont également initialisées au démarrage du programme. Si leur valeur a été modifiée lors des appels précédents de la fonction, ils conserveront leur valeur modifiée, c'est-à-dire, par exemple, qu'ils ne sont pas initialisés à chaque appel de la fonction.

Chaînes de caractères de ressources

Un type particulier de bloc de déclaration de constante est le bloc Resourcestring. Les déclarations de chaînes de ressources ressemblent beaucoup aux déclarations de chaînes de caractères constantes : les chaînes de caractères de ressources agissent comme des chaînes de caractères constantes, mais elles peuvent être localisées au moyen d'un ensemble de routines spéciales dans l'unité objpas. Un bloc de déclaration de chaîne de caractères de ressources n'est autorisé que dans les modes Delphi ou Objfpc.

Voici un exemple de définition de chaîne de caractères de ressources :

  1. Resourcestring
  2.  FileMenu = '&Fichier...';
  3.  EditMenu = '&Edition...';

Toutes les constantes de chaîne de caractères définies dans la section resourcestring sont entreposées dans des tables spéciales. Les chaînes de caractères de ces tables peuvent être manipulées au moment de l'exécution avec certains mécanismes spéciaux de l'unité objpas.

Sémantiquement, les chaînes de caractères agissent comme des constantes ordinaires ; Il n'est pas permis de leur attribuer des valeurs (sauf via les mécanismes spéciaux de l'unité objpas). Cependant, elles peuvent être utilisées dans des affectations ou des expressions comme constantes de chaîne de caractères ordinaires. L'utilisation principale de la section resourcestring est de fournir un moyen simple d'internationalisation.

Remarque : Notez qu'une chaîne de caractères de ressource donnée sous forme d'expression ne changera pas si les parties de l'expression sont modifiées :

  1. resourcestring
  2.  Part1='Première partie d''une longue chaîne de caractères.';
  3.  Part2='Deuxième partie d''une longue chaîne de caractères.';
  4.  Sentence = Part1+' '+Part2;

Si les routines de localisation traduisent Part1 et Part2, la constante Sentence ne sera pas traduite automatiquement : elle a une entrée distincte dans les tables de chaînes de ressources et doit donc être traduite séparément. La construction ci-dessus dit simplement que la valeur initiale de Sentence est égale à Part1+' '+Part2.

Remarque : De même, lors de l'utilisation de chaînes de caractères de ressources dans un tableau de constantes, seules les valeurs initiales des chaînes de caractères de ressources seront utilisées dans le tableau : lorsque les constantes individuelles sont traduites, les éléments du tableau conserveront leur valeur d'origine.

  1. resourcestring
  2.  Yes='Oui.';
  3.  No='Non.';
  4.  
  5. Var
  6.  YesNo:Array[Boolean] of String=(No,Yes);
  7.  B:Boolean;
  8. BEGIN
  9.  WriteLn(YesNo[B]);
  10. END.

Cela affichera «Oui» ou «Non» en fonction de la valeur de B, même si les constantes Yes et No ont été localisées par un mécanisme de localisation.



PARTAGER CETTE PAGE SUR
Dernière mise à jour : Mercredi, le 28 juin 2023