InraPorc

unit UVariables;

interface

uses

  Classes, SysUtils, Graphics, Registry, IniFiles;

const

  //URL           = 'http://w3.rennes.inra.fr/inraporc/';

  URL_HTTPS     = 'https://inraporc.inra.fr/inraporc/';

  clPink        = TColor($FF80FF);

  MILLI         = 1E-03;

  MICRO         = 1E-06;

  NANO          = 1E-09;

  PICO          = 1E-12;

  INFINI        = 1E99;

  MAX_MP        = 50;

  NB_CYCLES     = 8;

  NB_COL_TRUIE  = 78;

  MAX_LIG_TRUIE = 1500;

  NB_COL_PORC   = 113;

  MAX_LIG_PORC  = 1000;

  MAX_RULE      = 10;

  DefaultCoefNR: array[1..NB_CYCLES] of double = (1.11, 1.11, 1.03, 0.77, 0.60,

    0.41, 0.38, 0.31);

  // Valeurs et coeficients ?nergetiques

  // MAT, Lip, Amidon, Sucres, CB, Residu

  // EB, ED, EM, EM/ED, EN/EM, EN

  ValEnergie: array[1..6, 1..6] of double = (

    (22.64, 23.31, 20.34, 0, 0, 12.08),

    (38.76, 39.00, 39.00, 1, 35.01 / 39.00, 35.01),

    (17.54, 17.45, 17.45, 1, 14.32 / 17.45, 14.32),

    (16.71, 16.62, 16.62, 1, 11.94 / 16.62, 11.94),

    (18.58, 16.61, 15.51, 15.51 / 16.61, 8.64 / 15.51, 8.64),

    (18.58, 16.61, 15.51, 15.51 / 16.61, 8.64 / 15.51, 8.64));

  // Coefficients li?s au poids de carcasse

  aPVV         = 0.8901791;

  bPVV         = 1.0142019;

  aTPQ         = 0.20693514;

  bTPQ         = 0.77847131;

  TeteTPQ      = 0.76138234;

  PiedsTPQ     = 0.22435546;

  QueueTPQ     = 1 - TeteTPQ - PiedsTPQ;

  aLangue      = 0.005;

  aHampe       = 0.0026859;

  bHampe       = 1.06955354;

  aPanne       = 0.00056132;

  bPanne       = 1.68632852;

  bCarcasse    = 1.058788;

  // Coefficient pour passer du poids vif au poids vif vide

  PV2PVV       = 0.95;

  // Coefficient pour passer du poids vif vide au poids de prot?ines

  //  PVV2Prot = 0.16 ;

  // Coefficient pour passer du poids vif au poids de prot?ines

  //  PV2Prot = PV2PVV * PVV2Prot ;

  // PORC CROISSANCE

  Pallom       = 8.7845;

  Lallom       = 1.2566;

  Ballom       = 0.94406;

  kProtJaap    = 0.52;

  GEProtJaap   = 23.8;

  varUrinEloss = 31.1;

  NEact60h     = 150 / 2.9;

  NEPD         = 0.484;

  FHPint       = 436.47;

  FHPpente     = 0.1298 / 0.74;

  kBR          = 0.616 * 1.15;

  // Caract?ristique endog?ne AA pour calcul CUD apparent

  AAendogene: array[0..12] of double = (8.5167, 0.3133, 0.0867, 0.1400, 0.1167,

    0.3300, 0.2733, 0.2233, 0.4267, 0.2567, 0.3567, 0.1300, 0.2800);

  // Besoin en AA pour l'entretien (turnover + peau)

  AAm75: array[0..12] of double = (0.3611 + 0.1044, 0.0239 + 0.0045,

    0.0070 + 0.0010, 0.0047 + 0.0047, 0.0035 + 0.0009, 0.0138 + 0.0033,

    0.0137 + 0.0030, 0.0090 + 0.0019, 0.0271 + 0.0053, 0.0124 + 0.0025,

    0.0164 + 0.0038, 0.0102 + 0.0013, 0.000 + 0.000);

  // Rendement d'utilisation des AA

  kAA: array[0..12] of double = (0.85, 0.72, 0.64, 0.37, 0.57, 0.61, 0.82,

    0.67, 0.76, 0.67, 0.71, 0.93, 1.54);

  // Composition des prot?ines corporelles

  AAbody: array[0..12] of double = (1, 0.0696, 0.0188, 0.0103, 0.0095, 0.0370,

    0.0378, 0.0286, 0.0717, 0.0346, 0.0467, 0.0279, 0.0626);

  // TRUIE REPRODUCTRICE

  DureeGest = 114;

  EEGest    = 0.440; // Entretien gestation (MJ/kg^0.75)

  EELact    = 0.440; // Entretien lactation (MJ/kg^0.75)

  TCIInd    = 20;    // Temp?rature critique individuel (?C)

  TCICol    = 15;    // Temp?rature critique collectif (?C)

  EThInd    = 16.5;  // Thermor?gulation individuel (kJ/kg^0.75/?C)

  EThCol    = 9.0;   // Thermor?gulation collectif (kJ/kg^0.75/?C)

  KU        = 0.5;   // Efficacit? ?nergie ut?rus

  KProt     = 0.6;   // Efficacit? ?nergie prot?ines

  KLip      = 0.8;   // Efficacit? ?nergie lipides

  KGest     = 0.77;  // Efficacit? moyenne gestation

  KL        = 0.72;  // Efficacit? ?nergie lait

  KResL     = 0.87;  // Efficacit? ?nergie r?serves lait

  KResGest  = 0.9;   // Efficacit? ?nergie r?serves gestation

  KLysGest  = 0.68;  // Efficacit? lysine gestation

  KLysLact  = 0.77;  // Efficacit? lysine lactation

  LysEnt    = 0.036; // Lysine entretien (g/kg^0.75)

  ECU       = 5.43;  // Energie contenus ut?rins (MJ/(kg porcelets))

  APN       = -0.333 * 13.66 - 45.94 * 0.178;

  BPN       = -0.333 * 0.221 - 1.331 * 0.178;

  // lys, met, cys, trp, thr, phe, tyr, leu, ile, val, hst, arg

  ProtIdGest: array[1..12] of double =

    (100, 28, 37, 20, 72, 60, 40, 100, 65, 75, 30, 0);

  ProtIdLact: array[1..12] of double =

    (100, 30, 30, 19, 66, 60, 55, 105, 60, 85, 40, 67);

  ProtIdEnt: array[1..12] of double =

    (100, 25, 114, 31, 147, 50, 53, 64, 44, 55, 0, 0);

  ProtIdRet: array[1..12] of double =

    (100, 24.9, 22.5, 15, 58, 60.7, 36.1, 102.1, 50.3, 71.6, 35.4, 103.7);

  ProtIdLait: array[1..12] of double =

    (100, 26, 21, 17, 59, 54, 58, 116, 53, 73, 43, 66);

  // Param?tres c et d de la fonction Gamma

  cGammaFrais = 0.075;

  cGammaMS    = 0.066;

  cGammaED    = 1.04;

  cGammaEM    = 1.00;

  cGammaEN    = 0.75;

  dGamma      = 0.60;

type

  // Composition chimique

  CompositionChimique = record

    // Composition ?l?mentaire

    MS, MM, MO, Lip, MAT, Amidon, Sucres,

    // CUD Truie / Croissance

    dMO_T, dMO_C, dLip_T, dLip_C, dMAT_T, dMAT_C,

    // Energie

    EB, ED_T, ED_C, EM_T, EM_C, EN_T, EN_C,

    // Min?raux

    Ca, P, Na, K, Cl, Mg, Cu, Zn, Fe, Mn, S, Se, Co, Mb, I,

    Phytase, ActPhytE, ActPhytM, PdigG, PdigF,

    // Acides gras

    C6C8C10, C12_0, C14_0, C16_0, C16_1, C18_0, C18_1, C18_2, C18_3, C18_4,

    C20_0, C20_1, C20_4, C20_5, C22_0, C22_1, C22_5, C22_6, C24_0,

    AGsLip,

    // Fibres

    CB, dCB_T, dCB_C, Residu, dResidu_T, dResidu_C,

    NDF, ADF, ADL, Parois: double;

  end;

  // Composition en mati?res premi?res

  CompositionMatiere = record

    NbMat:   integer;

    NumMat:  array[0..MAX_MP] of integer;

    Qte, MS: array[0..MAX_MP] of double;

  end;

  // Mati?re premi?re

  RecMatiere = record

    Num:  integer;

    Nom:  string[35];

    Memo: string[255]; // Commentaires

    Typ:  integer;     // 0=NonRenseign?, ..., 9=NonR?f?renc?

    CC:   CompositionChimique;

    AAtotal, CUDAA: array[0..12] of double;

  end;

  PRecMatiere = ^RecMatiere;

  // Aliment

  RecAliment  = record

    Num:          integer;

    Nom:          string[35];

    Memo:         string[255]; // Commentaires

    Typ:          integer;     // 0=NonRenseign?, 1=PorcCroissance, 2=Truie

    Presentation: integer;     // 0=Granul?s, 1=Farine

    Prix:         double;

    MP:           CompositionMatiere;

    CC:           CompositionChimique;

    AAtotal, CUDAA: array[0..12] of double;

  end;

  PRecAliment = ^RecAliment;

  // Import / export

  RecCSV      = record

    Nom:  string;

    Memo: string[255]; // Commentaires

    Typ:  integer;     // <10=Mati?re premi?re (Type), >9=Aliment (Type, Pr?sentation)

    CC:   CompositionChimique;

    AAtotal, CUDAA: array[0..12] of double;

  end;

  PRecCSV        = ^RecCSV;

  // S?quence alimentaire truie reproductrice

  RecRuleSeqAliT = record

    ModeFin:          integer; // -1=Fin, 0=Dur?e

    ValFin:           integer;

    NumAli1, NumAli2: integer;

    PctAli1Init, PctAli1Fin: integer;

  end;

  RecSeqAliT = record

    Num:        integer;

    Nom:        string[25];

    Memo:       string[255]; // Commentaires

    NbRuleGest: integer;

    RuleGest:   array[1..MAX_RULE] of RecRuleSeqAliT;

    NbRuleLact: integer;

    RuleLact:   array[1..MAX_RULE] of RecRuleSeqAliT;

    NbRuleISSF: integer;

    RuleISSF:   array[1..MAX_RULE] of RecRuleSeqAliT;

  end;

  PRecSeqAliT    = ^RecSeqAliT;

  // Plan de rationnement truie reproductrice

  RecRuleRationT = record

    ModeFin:  integer; // -1=Fin, 0=Dur?e

    ValFin:   integer;

    Equation: integer; // 0=Constant, 1=Lin?aire, 2=Curvilin?aire 3=Lin?aire-plateau

    a, b, c:  double;

    d:        integer;

  end;

  RecRationT = record

    Num:        integer;

    Nom:        string[25];

    Memo:       string[255]; // Commentaires

    NbRuleGest: integer;

    RuleGest:   array[1..MAX_RULE] of RecRuleRationT;

    UniteGest:  integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    NbRuleLact: integer;

    RuleLact:   array[1..MAX_RULE] of RecRuleRationT;

    UniteLact:  integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    NbRuleISSF: integer;

    RuleISSF:   array[1..MAX_RULE] of RecRuleRationT;

    UniteISSF:  integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

  end;

  PRecRationT  = ^RecRationT;

  TabCycle     = array[1..NB_CYCLES] of integer;

  // Logement truie reproductrice

  RecRuleLogeT = record

    ModeFin: integer; // -1=Fin, 0=Dur?e

    ValFin:  integer;

    Typ, Sol, Temp, Act: integer;

  end;

  RecLogeT = record

    Num:        integer;

    Nom:        string[25];

    Memo:       string[255]; // Commentaires

    NbRuleGest: integer;

    RuleGest:   array[1..MAX_RULE] of RecRuleLogeT;

    NbRuleLact: integer;

    RuleLact:   array[1..MAX_RULE] of RecRuleLogeT;

    NbRuleISSF: integer;

    RuleISSF:   array[1..MAX_RULE] of RecRuleLogeT;

  end;

  PRecLogeT = ^RecLogeT;

  // Performances truies (Truie)

  RecTruies = record

    Nombre:          integer;

    AgeSail:         integer;

    PdsSail, P2Sail: double;

    PdsAvMB, PdsApMB, P2MB: double;

  end;

  // Performances truies (Porcelets)

  RecPorcelets = record

    NesTotaux, NesVivants, Sevres: double;

    PdsNais, PdsSev: double;

  end;

  // Profil truie reproductrice

  RecProfilT = record

    Num:        integer;

    Nom:        string[25];

    Memo:       string[255]; // Commentaires

    Truies:     array[1..NB_CYCLES] of RecTruies;

    Porcelets:  array[1..NB_CYCLES] of RecPorcelets;

    SeqAli:     integer;

    Unite:      integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    Gest, Lact: array[1..NB_CYCLES] of double;

    Loge:       integer;

    DureeLact:  integer;

    CoefEntretienGest, CoefEntretienLact, RatioLipProt: double;

    CoefNR:     array[1..NB_CYCLES] of double;

    // GTTT (aide ? la saisie)

    NbTruies, AgeMB1: integer;

    ISO:        double;

    PVSail1, PVAdulte, PertePVPrim, PertePVMult: double;

    P2Sail1, P2Objectif, PerteP2Prim, PerteP2Mult: double;

    NbVifs, NbMorts, NbSevres: double;

    AgeSevr:    integer;

    PVNais, PVSevr: double;

    ConsoLact, ConsoGest: double;

    // Ajustement du poids apr?s mise-bas

    pmax, a, b: double;

  end;

  PRecProfilT = ^RecProfilT;

  // Simulation truie reproductrice

  RecSimulT   = record

    Num:     integer;

    Nom:     string[25];

    Memo:    string[255]; // Commentaires

    Profil, Logement: integer;

    DureeLact, DureeISSF: integer; // Conduite (DureeISSF n'est plus utilis?)

    OptInit: integer; // Option de r?initialisation (PV et P2)

    StadeInit, StadeFin: integer;

    SeqAli, Ration: array[1..NB_CYCLES] of integer;

  end;

  PRecSimulT   = ^RecSimulT;

  // R?sultats de simulation truie reproductrice

  TabResSimulT = record

    TabResult: array[1..NB_COL_TRUIE, 1..MAX_LIG_TRUIE] of double;

    NbJSim:    integer;

  end;

  PTabResSimulT = ^TabResSimulT;

  RecTabSimulT = record

    Ok:        boolean;

    Simul:     integer;

    Variation: double;

    Result:    PTabResSimulT;

  end;

  // S?quence alimentaire porc croissance

  RecRuleSeqAliP = record

    ModeFin:          integer; // -1=Fin, 0=Dur?e, 1=Age, 2=PoidsVif, 3=CumulAliment

    ValFin:           double;

    NumAli1, NumAli2: integer;

    PctAli1Init, PctAli1Fin: integer;

  end;

  RecSeqAliP = record

    Num:    integer;

    Nom:    string[25];

    Memo:   string[255]; // Commentaires

    NbRule: integer;

    Rule:   array[1..MAX_RULE] of RecRuleSeqAliP;

  end;

  PRecSeqAliP       = ^RecSeqAliP;

  // Plan de rationnement porc croissance

  RecRuleRationPold = record

    ModeFin:  integer;

    // -1=Fin, 0=Dur?e, 1=Age, 2=PoidsVif, 3=CumulAliment, 4-8=Consommation (Aliment, MS, ED, EM, EN)

    ValFin:   double;

    Unite:    integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    Equation: integer;

    // 0=AdLib, 1=Constant, 2=f(PV), 3=a+b*PV, 4=a*PV^b, 5=a*(1-exp(-b*PV)), 6=f(dur?e), 7=a+b*dur?e, 8=a+b*dur?e(step), 9=%AdLib

    a, b:     double;

  end;

  RecRationPold = record

    Num:    integer;

    Nom:    string[25];

    Memo:   string[255]; // Commentaires

    NbRule: integer;

    Rule:   array[1..MAX_RULE] of RecRuleRationPold;

  end;

  PRecRationPold = ^RecRationPold;

  RecRuleRationP = record

    ModeFin:    integer;

    // -1=Fin, 0=Dur?e, 1=Age, 2=PoidsVif, 3=CumulAliment, 4-8=Consommation (Aliment, MS, ED, EM, EN)

    ValFin:     double;

    Gaspillage: double;

    RuleType:   integer; // 0=%AdLib, 1=Constant, 2=f(PV), 3=f(dur?e)

    Unite:      integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    EqDuree:    integer; // f(dur?e): 0=a+b*jour, 1=a+b*semaine

    EqPV:       integer; // f(PV): 0=a+b*PV, 1=a*PV^b, 2=a*(1-exp(-b*PV))

    Percent, Quantity, aDuree, bDuree, aPV, bPV: double;

  end;

  RecRationP = record

    Num:    integer;

    Nom:    string[25];

    Memo:   string[255]; // Commentaires

    NbRule: integer;

    Rule:   array[1..MAX_RULE] of RecRuleRationP;

  end;

  PRecRationP   = ^RecRationP;

  // Profil porc croissance

  RecProfilPold = record

    Num:       integer;

    Nom:       string[25];

    Memo:      string[255]; // Commentaires

    SeqAli:    integer;

    Unite:     integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    Equation:  integer; // 0=a+b*PV, 1=a*PV^b, 2=a*(1-exp(-b*PV))

    a, b:      double;

    AgeInit:   integer;

    PVInit:    double;

    ProtInit:  double;

    LipInit:   double;

    ModeFin:   integer; // 0=Duree, 1=Poids vif

    Duree:     integer;

    PVFin:     double;

    Carcasse:  double; // Rendement carcasse

    PDMoy:     double;

    BGompertz: double; // Comportement

    Entretien: double;

    PVmr2:     double;

  end;

  PRecProfilPold = ^RecProfilPold;

  RecProfilP = record

    Num:       integer;

    Nom:       string[25];

    Memo:      string[255]; // Commentaires

    Sexe:      integer;     // 0=Castr?, 1=Femelle, 2=M?le, 3=Mixte

    SeqAli, Ration: integer;

    AgeInit:   integer;

    PVInit:    double;

    ProtInit:  double;

    LipInit:   double;

    ModeFin:   integer; // 0=Duree, 1=Poids vif

    Duree:     integer;

    PVFin:     double;

    Carcasse:  double;  // Rendement carcasse

    Unite:     integer; // 0=Quantit?, 1=ED, 2=EM, 3=EN, 4=MS

    Equation:  integer; // 0=a+b*PV, 1=a*PV^b, 2=a*(1-exp(-b*PV))

    a, b:      double;

    PDMoy:     double;

    BGompertz: double; // Comportement

    Entretien: double;

    PVmr2:     double;

  end;

  PRecProfilP = ^RecProfilP;

  // Simulation porc croissance

  RecSimulP   = record

    Num:     integer;

    Nom:     string[25];

    Memo:    string[255]; // Commentaires

    Profil, SeqAli, Ration: integer;

    AgeInitProfil, PVInitProfil, ProtLipInitProfil, FinProfil: boolean;

    AgeInit: integer;

    PVInit, ProtInit, LipInit: double;

    ModeFin: integer; // 0=Duree, 1=Poids vif

    Duree:   integer;

    PVFin:   double;

  end;

  PRecSimulP   = ^RecSimulP;

  // R?sultats de simulation porc croissance

  TabResSimulP = record

    TabResult: array[1..NB_COL_PORC, 1..MAX_LIG_PORC] of double;

    NbJSim:    integer;

  end;

  PTabResSimulP = ^TabResSimulP;

  RecTabSimulP = record

    Ok:        boolean;

    Simul, Profil, SeqAli, Ration: integer;

    Variation: double;

    Result:    PTabResSimulP;

  end;

function CCVide: CompositionChimique; // initialisation

var

  ResInstance:   longword;

  Reg:           TRegistry;

  Lic:           TIniFile;

  // Licence

  MajorVersion, MinorVersion, ReleaseVersion, BuildVersion: integer;

  VersionString: string;

  MainLeft, MainTop, MainWidth, MainHeight: integer;

  FirstName, LastName, Company: string;

  Address1, Address2, PostalCode, City, Country: string;

  Phone, Fax, Mail: string;

  Course:        string;

  LicenseType, LicenseNumber: integer;

  Drive, Volume, FinalDate, SoftwareEnableKey: string;

  // Configuration

  CheckForUpdates: boolean;

  Folder, NewFolder, Logo, NewLogo, ExcelFile, CurrencySign: string;

  LanguageCode, NewLanguageCode: string;

  AffCorrCUD, AffCalcAli, AffGraphAli, AffUnitProfilP, AffPDMoy,

  AffPrecocite, AffEntretien, AffOptInit, AffSimulT, AffBesoin: boolean;

  ConfRap, ConfDig, ConfTCompo, ConfTAA, ConfTAG, ConfTMacro, ConfTOligo,

  ConfTFibres, ConfDCompo, ConfDAA: integer;

  ConfAffMP:     boolean;

  TypeAliGest:   integer;

  Duree1, Duree3: integer;

  Quantite1, Quantite2, Quantite3, Augment: double;

  XTruie, XCrois: integer;

  CarTete, CarLangue, CarPieds, CarQueue, CarHampe, CarPanne: boolean;

  ConfigChanged, DataFolderExists, ConvertData: boolean;

  FeedInfo, FatInfo, LeanInfo: integer;

  UserFatShortName, UserFatLongName, UserLeanShortName, UserLeanLongName: string;

  UserFatPVV, UserLeanPVV: boolean;

  UserFatA, UserFatB, UserFatC, UserLeanA, UserLeanB, UserLeanC: double;

  // Mati?re premi?re

  NFicMatiere, NFicMatInraAfz: string; // nom du fichier

  PMatiere:      PRecMatiere; // pointeur sur enregistrement

  ListMatiere:   TList; // liste des enregistrements

  NumWinMatiere: integer; // num?ro de fen?tre MDI

  NumMatInraAfz: integer; // Nombre de mati?res premi?res INRA/AFZ

  // Aliment

  NFicAliment:   string; // nom du fichier

  PAliment:      PRecAliment; // pointeur sur enregistrement

  ListAliment:   TList; // liste des enregistrements

  NumWinAliment: integer; // num?ro de fen?tre MDI

  // Tarif

  NumWinTarif:   integer; // num?ro de fen?tre MDI

  // Import / export

  NumWinImpExp:  integer; // num?ro de fen?tre MDI

  // S?quence alimentaire truie reproductrice

  NFicSeqAliT:   string; // nom du fichier

  PSeqAliT:      PRecSeqAliT; // pointeur sur enregistrement

  ListSeqAliT:   TList; // liste des enregistrements

  NumWinSeqAliT: integer; // num?ro de fen?tre MDI

  // Plan de rationnement truie reproductrice

  NFicRationT:   string; // nom du fichier

  PRationT:      PRecRationT; // pointeur sur enregistrement

  ListRationT:   TList; // liste des enregistrements

  NumWinRationT: integer; // num?ro de fen?tre MDI

  // Logement truie reproductrice

  NFicLogeT:     string; // nom du fichier

  PLogeT:        PRecLogeT; // pointeur sur enregistrement

  ListLogeT:     TList; // liste des enregistrements

  NumWinLogeT:   integer; // num?ro de fen?tre MDI

  // Profil truie reproductrice

  NFicProfilT:   string; // nom du fichier

  PProfilT:      PRecProfilT; // pointeur sur enregistrement

  ListProfilT:   TList; // liste des enregistrements

  NumWinProfilT: integer; // num?ro de fen?tre MDI

  // Simulation truie reproductrice

  NFicSimulT:    string; // nom du fichier

  PSimulT:       PRecSimulT; // pointeur sur enregistrement

  ListSimulT:    TList; // liste des enregistrements

  NumWinSimulT:  integer; // num?ro de fen?tre MDI

  // R?sultats de simulation truie reproductrice

  PResSimulT:    PTabResSimulT;

  TabSimulT:     array[1..5] of RecTabSimulT;

  // Besoins en gestation (truie/?levage)

  NumWinBesGestT: integer; // num?ro de fen?tre MDI

  NumWinBesGestE: integer; // num?ro de fen?tre MDI

  // Besoins en lactation (truie/?levage)

  NumWinBesLactT: integer; // num?ro de fen?tre MDI

  NumWinBesLactE: integer; // num?ro de fen?tre MDI

  // S?quence alimentaire porc croissance

  NFicSeqAliP:   string; // nom du fichier

  PSeqAliP:      PRecSeqAliP; // pointeur sur enregistrement

  ListSeqAliP:   TList; // liste des enregistrements

  NumWinSeqAliP: integer; // num?ro de fen?tre MDI

  // Plan de rationnement porc croissance

  NFicRationPold: string; // nom du fichier

  PRationPold:   PRecRationP; // pointeur sur enregistrement

  NFicRationP:   string; // nom du fichier

  PRationP:      PRecRationP; // pointeur sur enregistrement

  ListRationP:   TList; // liste des enregistrements

  NumWinRationP: integer; // num?ro de fen?tre MDI

  // Profil porc croissance

  NFicProfilPold: string; // nom du fichier

  PProfilPold:   PRecProfilPold; // pointeur sur enregistrement

  NFicProfilP:   string; // nom du fichier

  PProfilP:      PRecProfilP; // pointeur sur enregistrement

  ListProfilP:   TList; // liste des enregistrements

  NumWinProfilP: integer; // num?ro de fen?tre MDI

  // Simulation porc croissance

  NFicSimulP:    string; // nom du fichier

  PSimulP:       PRecSimulP; // pointeur sur enregistrement

  ListSimulP:    TList; // liste des enregistrements

  NumWinSimulP:  integer; // num?ro de fen?tre MDI

  // R?sultats de simulation porc croissance

  PResSimulP:    PTabResSimulP;

  TabSimulP:     array[1..5] of RecTabSimulP;

implementation

function CCVide: CompositionChimique; // initialisation

begin

  with Result do

  begin

    MS := 1000;

    MM := 0;

    MO := 0;

    Lip := 0;

    MAT := 0;

    Amidon := 0;

    Sucres := 0;

    dMO_T := 0;

    dMO_C := 0;

    dLip_T := 0;

    dLip_C := 0;

    dMAT_T := 0;

    dMAT_C := 0;

    EB := 0;

    ED_T := 0;

    ED_C := 0;

    EM_T := 0;

    EM_C := 0;

    EN_T := 0;

    EN_C := 0;

    Ca := 0;

    P  := 0;

    Na := 0;

    K  := 0;

    Cl := 0;

    Mg := 0;

    Cu := 0;

    Zn := 0;

    Fe := 0;

    Mn := 0;

    S  := 0;

    Se := 0;

    Co := 0;

    Mb := 0;

    I  := 0;

    Phytase := 0;

    ActPhytE := 0;

    ActPhytM := 0;

    PdigG := 0;

    PdigF := 0;

    C6C8C10 := 0;

    C12_0 := 0;

    C14_0 := 0;

    C16_0 := 0;

    C16_1 := 0;

    C18_0 := 0;

    C18_1 := 0;

    C18_2 := 0;

    C18_3 := 0;

    C18_4 := 0;

    C20_0 := 0;

    C20_1 := 0;

    C20_4 := 0;

    C20_5 := 0;

    C22_0 := 0;

    C22_1 := 0;

    C22_5 := 0;

    C22_6 := 0;

    C24_0 := 0;

    AGsLip := 0;

    CB := 0;

    dCB_T := 0;

    dCB_C := 0;

    Residu := 0;

    dResidu_T := 0;

    dResidu_C := 0;

    NDF := 0;

    ADF := 0;

    ADL := 0;

    Parois := 0;

  end;

end;

end.