Constantes

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:=GetQPF;
end.

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