Table des matières

Constantes

Exemples

Const
  MonthStart = 0 ; // could be 1 and
  MonthEnd   = 11; // 12 if desired
  DayStart   = 0 ; // same,could be 1 and
  DayEnd     = 6;  // 7
  DayNameCh: array [DayStart .. DayEnd] of char =(
        'S','M','T','W','H','F','A');
  DayNameShort: array [DayStart .. DayEnd] of string=
    ( 'Sun','Mon','Tue','Wed','Thu',
      'Fri','Sat' ) ;
  DayNameLong: array DayStart .. DayEnd] of 
    string = ( 'Sunday', 'Monday','Tuesday','Wednesday',
               'Thursday', 'Friday', 'Saturday' );
     MonthNameLong: array[MonthStart ..MonthEnd] of string = (
  'January','February','March','April',
  'May','June','July','August',
  'September','October','November'.
  'December'  
             );
   MomthDays: ARRAY [ MonthStart .. MonthEnd ] of
    integer = ( 31, 28, 31, 30, 31, 30,
                31, 31, 30. 31, 30, 31 );

Definir une constante a l'initialisation d'une unité

unit Test;
 
{$mode objfpc}{$H+}
 
interface
 
uses
       windows, SysUtils;
 
const
  {Déclaration de la constante}
  MA_CONST: int64     = 0; //On initialise le type et la valeur par defaut
 
implementation
function GetValue: int64;
begin
   Result := 999999; // ou ce que je veux d'autre
end;
 
initialization
  {affectation de la constante}
  MA_CONST:=GetValue;
end.

Record en Const

   C_CHAR_INFLATE: TSize = (cx: 2; cy: 2);

Array en Const

DayNameShort: array [0 .. 6] of string=
    ( 'Sun','Mon','Tue','Wed','Thu',
      'Fri','Sat' ) ;
 

Sources et Ressources