====== Constantes ======
===== Exemples =====
<code delphi>
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 );
</code>                

===== Definir une constante a l'initialisation d'une unité =====
<code delphi>
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.

</code>
===== Record en Const =====
<code delphi>
   C_CHAR_INFLATE: TSize = (cx: 2; cy: 2);
</code>
===== Array en Const =====
<code delphi>
DayNameShort: array [0 .. 6] of string=
    ( 'Sun','Mon','Tue','Wed','Thu',
      'Fri','Sat' ) ;
      </code>
===== Sources et Ressources =====
  * [[https://wiki.lazarus.freepascal.org/Constants]]