Constantes

unit Test;
 
{$mode objfpc}{$H+}
 
interface
 
uses
       windows, SysUtils;
 
const
  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
  MA_CONST:=GetQPF;
end.