V2.31

UnitConfig.dfm

@@ -1776,7 +1776,7 @@ object FormConfig: TFormConfig
     Top = 8
     Width = 585
     Height = 441
-    ActivePage = TabSheetCDM
+    ActivePage = TabSheetSig
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBackground
     Font.Height = -11
@@ -2783,7 +2783,7 @@ object FormConfig: TFormConfig
           Top = 48
           Width = 129
           Height = 21
-          ItemHeight = 0
+          ItemHeight = 13
           TabOrder = 1
           OnChange = ComboBoxDecChange
         end
@@ -2812,6 +2812,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 4
           Text = 'Edit1'
+          OnChange = EditDet2Change
         end
         object EditSuiv2: TEdit
           Left = 184
@@ -2820,6 +2821,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 5
           Text = 'Edit2'
+          OnChange = EditSuiv2Change
         end
         object EditDet3: TEdit
           Left = 120
@@ -2828,6 +2830,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 6
           Text = 'Edit1'
+          OnChange = EditDet3Change
         end
         object EditSuiv3: TEdit
           Left = 184
@@ -2836,6 +2839,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 7
           Text = 'Edit2'
+          OnChange = EditSuiv3Change
         end
         object EditDet4: TEdit
           Left = 120
@@ -2844,6 +2848,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 8
           Text = 'Edit1'
+          OnChange = EditDet4Change
         end
         object EditSuiv4: TEdit
           Left = 184
@@ -2852,6 +2857,7 @@ object FormConfig: TFormConfig
           Height = 21
           TabOrder = 9
           Text = 'Edit2'
+          OnChange = EditSuiv4Change
         end
         object CheckVerrouCarre: TCheckBox
           Left = 112

UnitConfig.pas

@@ -207,6 +207,12 @@ type
     procedure EditDet1Change(Sender: TObject);
     procedure EditSuiv1Change(Sender: TObject);
     procedure CheckVerrouCarreClick(Sender: TObject);
+    procedure EditDet2Change(Sender: TObject);
+    procedure EditSuiv2Change(Sender: TObject);
+    procedure EditDet3Change(Sender: TObject);
+    procedure EditSuiv3Change(Sender: TObject);
+    procedure EditDet4Change(Sender: TObject);
+    procedure EditSuiv4Change(Sender: TObject);
   private
     { Déclarations privées }
   public
@@ -215,14 +221,32 @@ type
   end;
 
 const
-TitreAig='Description de l''aiguillage ';
+// variables du fichier de configuration "config-gl.cfg"
+section_init='[section_init]';
+nb_det_dist_ch='nb_det_dist';
+IpV4_PC_ch='IpV4_PC';
+retro_ch='retro';
+Init_aig_ch='Init_Aig';
+LAY_ch='Lay';
+IPV4_INTERFACE_ch='IPV4_INTERFACE';
+PROTOCOLE_SERIE_ch='PROTOCOLE_SERIE';
+INTER_CAR_ch='INTER_CAR';
+Tempo_maxi_ch='Tempo_maxi';
+Entete_ch='Entete';
+TCO_ch='TCO';
+CDM_ch='CDM';
+Serveur_interface_ch='Serveur_interface';
+fenetre_ch='Fenetre';
+NOTIF_VERSION_ch='NOTIF_VERSION';
+verif_version_ch='verif_version';
+Fonte_ch='Fonte';
 
 var
   FormConfig: TFormConfig;
   AdresseIPCDM,AdresseIP,PortCom,recuCDM,residuCDM : string;
   portCDM,TempoOctet,TimoutMaxInterface,Valeur_entete,Port,protocole,NumPort,
   LigneCliquee,AncLigneCliquee : integer;
-  clicliste : boolean;
+  ack_cdm,clicliste : boolean;
 
 function config_com(s : string) : boolean;
 function envoi_CDM(s : string) : boolean;
@@ -268,6 +292,7 @@ begin
   place_id:=s;
 end;
 
+// demande les services à CDM
 function services_CDM : boolean;
 var s,ss : string;
     i : integer;
@@ -291,8 +316,9 @@ begin
   delete(s,26,3);
   insert(ss,s,26);
   //Affiche(s,clyellow);
+
   envoi_CDM(s);sleep(100);
-  if pos('_ACK',recuCDM)<>0 then 
+  if ack_cdm then
   begin
     s:='Services acceptés: ';
     if Srvc_Aig then s:=s+'- aiguillages ';
@@ -302,7 +328,8 @@ begin
     if Srvc_sig then s:=s+'- état des signaux ';
     Affiche(s,clYellow);
   end;
-  services_CDM:=pos('_ACK',recuCDM)<>0;
+  services_CDM:=ack_cdm;
+  ack_cdm:=false;
 end;
 
 procedure connecte_CDM;
@@ -329,14 +356,15 @@ begin
       Application.processMessages;
     until (i>10) or SocketCDM_connecte  ;
     //if i>30 then affiche('Timeout',clred);
-    if not(SocketCDM_connecte) then Affiche('Socket CDM non connecté',clOrange);
+    if not(SocketCDM_connecte) then begin Affiche('Socket CDM non connecté',clOrange);exit;end;
 
     // connexion à CDM rail
     recuCDM:='';
     s:='C-C-00-0001-CMDGEN-_CNCT|000|';
     envoi_cdm(s);
-    if pos('_ACK',recuCDM)<>0 then
+    if ack_cdm then
     begin
+      ack_cdm:=false;
       Id_CDM:=copy(recuCDM,5,2);   // récupère l'ID reçu de CDM, à utiliser dans toutes les futures trames
       recucdm:='';
       s:='Connecté au serveur CDM rail avec l''ID='+Id_CDM;
@@ -537,7 +565,7 @@ begin
 end;
 
 // modifie les fichiers de config en fonction du paramétrage
-procedure genere_config2;
+procedure genere_config;
 var s: string;
     fichier,fichierN : text;
     i,j : integer;
@@ -572,79 +600,79 @@ begin
   // entête
   copie_commentaire;
   // taille de la fonte
-  writeln(fichierN,'Fonte=',TailleFonte);
+  writeln(fichierN,Fonte_ch+'=',TailleFonte);
   copie_commentaire;
 
   // adresse ip et port de CDM
-  writeln(fichierN,'IpV4_PC=',adresseIPCDM+':'+intToSTR(portCDM));
+  writeln(fichierN,IpV4_PC_ch+'=',adresseIPCDM+':'+intToSTR(portCDM));
   copie_commentaire;
 
   // adresse ip interface XpressNet
-  writeln(fichierN,'IPV4_Interface=',adresseIP+':'+intToSTR(port));
+  writeln(fichierN,IPV4_Interface_ch+'=',adresseIP+':'+intToSTR(port));
   copie_commentaire;
 
   // port com
-  writeln(fichierN,'Protocole_serie=',portcom);
+  writeln(fichierN,Protocole_serie_ch+'=',portcom);
   copie_commentaire;
 
   // temporisation caractère TempoOctet
-  writeln(fichierN,'Inter_Car=',IntToSTR(TempoOctet));
+  writeln(fichierN,Inter_Car_ch+'=',IntToSTR(TempoOctet));
   copie_commentaire;
 
   // temporisation attente maximale interface
-  writeln(fichierN,'Tempo_maxi=',IntToSTR(TimoutMaxInterface));
+  writeln(fichierN,Tempo_maxi_ch+'=',IntToSTR(TimoutMaxInterface));
   copie_commentaire;
 
   // entete Valeur_entete
-  writeln(fichierN,'Entete=',intToSTR(Valeur_entete));
+  writeln(fichierN,Entete_ch+'=',intToSTR(Valeur_entete));
   copie_commentaire;
 
   // avec ou sans initialisation des aiguillages
-  writeln(fichierN,'Init_Aig=',IntToSTR(AvecInitAiguillages));
+  writeln(fichierN,Init_Aig_ch+'=',IntToSTR(AvecInitAiguillages));
   copie_commentaire;
 
   // plein écran
-  writeln(fichierN,'Fenetre=',fenetre);
+  writeln(fichierN,Fenetre_ch+'=',fenetre);
   copie_commentaire;
 
   // Nombre maxi de détecteurs considérés distants
-  writeln(fichierN,'Nb_Det_Dist=',Nb_Det_Dist);
+  writeln(fichierN,nb_det_dist_ch+'=',Nb_Det_Dist);
   copie_commentaire;
 
-  
   // Vérification des versions au démarrage
   if verifVersion then s:='1' else s:='0';
-  writeln(fichierN,'verif_version=',s);
+  writeln(fichierN,verif_version_ch+'=',s);
   copie_commentaire;
 
   // Notification de nouvelle version
   if notificationVersion then s:='1' else s:='0';
-  writeln(fichierN,'notif_version=',s);
+  writeln(fichierN,notif_version_ch+'=',s);
   copie_commentaire;
 
   // Avec TCO
   if AvecTCO then s:='1' else s:='0';
-  writeln(fichierN,'TCO=',s);
+  writeln(fichierN,TCO_ch+'=',s);
   copie_commentaire;
 
   // lancement de CDM
   if LanceCDM then s:='1' else s:='0';
-  writeln(fichierN,'CDM=',s);
+  writeln(fichierN,CDM_ch+'=',s);
   copie_commentaire;
 
   // Nom du LAY
-  writeln(fichierN,'LAY=',Lay);
+  writeln(fichierN,lay_ch+'=',Lay);
   copie_commentaire;
 
   // Serveur d'interface de CDM
-  writeln(fichierN,'Serveur_interface=',intToSTR(ServeurInterfaceCDM));
+  writeln(fichierN,Serveur_interface_ch+'=',intToSTR(ServeurInterfaceCDM));
   copie_commentaire;
 
   // Serveur de rétrosignalisation Lenz de CDM
-  writeln(fichierN,'retro=',intToSTR(ServeurRetroCDM));
+  writeln(fichierN,retro_ch+'=',intToSTR(ServeurRetroCDM));
   copie_commentaire;
 
-  // section init est copié ici
+  // [section init] est copié ici
+  if pos(section_init,lowercase(s))=0 then  writeln(fichierN,section_init);
   writeln(fichierN,s);
   // valeurs des initialisations
   repeat
@@ -751,7 +779,7 @@ begin
 
 end;
 
-
+// sauvegarder la config dans les fichiers cfg
 procedure Sauve_config;
 var i,erreur : integer;
     s : string;
@@ -876,7 +904,7 @@ begin
   if change_srv then services_CDM;
 
   // générer le fichiers config.cfg et clieng-GL.cfg
-  genere_config2;
+  genere_config;
 
 end;
 
@@ -1086,7 +1114,7 @@ begin
 
   RE_ColorLine(Formconfig.RichAig,ligneCliquee,Clyellow);
 
-  ss:=TitreAig+InttoSTr(Adresse);
+  ss:='Description de l''aiguillage '+InttoSTr(Adresse);
   formconfig.LabelAdresse.Caption:= ss;
 
   tjd:=pos('TJD',s)<>0 ;
@@ -1760,61 +1788,6 @@ begin
   end;  
 end;
 
-procedure change_det1;
-var s : string;
-    i,erreur : integer;
-begin
-  if clicliste then exit;
-  
-  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
-  with Formconfig do
-  begin
-    s:=EditDet1.Text;
-    Val(s,i,erreur);
-    if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
-    LabelInfo.caption:=' '; 
-    feux[lignecliquee+1].Adr_det1:=i;
-    s:=encode_sig(lignecliquee+1);
-    RichSig.Lines[lignecliquee]:=s;
-    feux[lignecliquee+1].modifie:=true;
-  end;  
-end;
-
-procedure change_Suiv1;
-var s : string;
-    i,erreur : integer;
-    B : char;
-begin
-  if clicliste then exit;
-  
-  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
-  with Formconfig do
-  begin
-    s:=EditSuiv1.Text;
-    if s='' then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
-    Val(s,i,erreur);
-    //if erreur<>0 then 
-    if erreur<>0 then
-    begin
-      if (s[erreur]='A') and (erreur=1) then 
-      begin
-        feux[lignecliquee+1].Btype_suiv1:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
-        delete(s,erreur,1);
-        Val(s,i,erreur);
-      end  
-      else begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
-    end
-    else feux[lignecliquee+1].Btype_suiv1:=1;
-
-    LabelInfo.caption:=' ';
-   
-    feux[lignecliquee+1].Adr_el_suiv1:=i;  
-    s:=encode_sig(lignecliquee+1);
-    RichSig.Lines[lignecliquee]:=s; 
-  end;  
-end;
-
-
 
 procedure TFormConfig.EditPointe_BGChange(Sender: TObject);
 begin
@@ -1898,16 +1871,78 @@ begin
   clicliste:=false;
 end;
 
-
-
 procedure TFormConfig.EditDet1Change(Sender: TObject);
+var s : string;
+    i,erreur : integer;
 begin
-  change_det1;
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditDet1.Text;
+    Val(s,i,erreur);
+    if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
+    LabelInfo.caption:=' ';
+    feux[lignecliquee+1].Adr_det1:=i;
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+    feux[lignecliquee+1].modifie:=true;
+  end;
 end;
 
 procedure TFormConfig.EditSuiv1Change(Sender: TObject);
+var s : string;
+    i,erreur : integer;
+    B : char;
 begin
-  change_Suiv1;
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditSuiv1.Text;
+    if s='' then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
+    Val(s,i,erreur);
+    //if erreur<>0 then
+    if erreur<>0 then
+    begin
+      if (s[erreur]='A') and (erreur=1) then
+      begin
+        feux[lignecliquee+1].Btype_suiv1:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
+        delete(s,erreur,1);
+        Val(s,i,erreur);
+      end
+      else begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
+    end
+    else feux[lignecliquee+1].Btype_suiv1:=1;
+
+    LabelInfo.caption:=' ';
+
+    feux[lignecliquee+1].Adr_el_suiv1:=i;
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+  end;
+end;
+
+procedure TFormConfig.EditDet2Change(Sender: TObject);
+var s : string;
+    i,erreur : integer;
+begin
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditDet2.Text;
+    Val(s,i,erreur);
+    //if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
+    LabelInfo.caption:=' ';
+    feux[lignecliquee+1].Adr_det2:=i;
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+    feux[lignecliquee+1].modifie:=true;
+  end;
 end;
 
 procedure TFormConfig.CheckVerrouCarreClick(Sender: TObject);
@@ -1924,7 +1959,160 @@ begin
   end;
 end;
 
+procedure TFormConfig.EditSuiv2Change(Sender: TObject);
+var s : string;
+    erreur,Btype,Adr : integer;
+    B : char;
+begin
+  if clicliste then exit;
 
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditSuiv2.Text;
+    if s='' then 
+    begin 
+      Btype:=0;
+      Adr:=0;
+    end
+    else
+    begin
+      Val(s,Adr,erreur);
+      if (erreur<>0) and (s<>'') then
+      begin
+        if (s[erreur]='A') and (erreur=1) then
+        begin
+          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
+          delete(s,erreur,1);
+          Val(s,Adr,erreur);
+        end
+        else begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
+      end;
+    end;  
+    feux[lignecliquee+1].Btype_suiv2:=Btype;
+    feux[lignecliquee+1].Adr_el_suiv2:=Adr;
+    LabelInfo.caption:=' '; 
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+  end;
+end;
+
+
+procedure TFormConfig.EditDet3Change(Sender: TObject);
+var s : string;
+    i,erreur : integer;
+begin
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditDet3.Text;
+    Val(s,i,erreur);
+   // if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
+    LabelInfo.caption:=' ';
+    feux[lignecliquee+1].Adr_det3:=i;
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+    feux[lignecliquee+1].modifie:=true;
+  end;
+end;
+
+procedure TFormConfig.EditSuiv3Change(Sender: TObject);
+var s : string;
+    erreur,Btype,Adr : integer;
+    B : char;
+begin
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditSuiv3.Text;
+    if s='' then 
+    begin 
+      Btype:=0;
+      Adr:=0;
+    end
+    else
+    begin
+      Val(s,Adr,erreur);
+      if (erreur<>0) and (s<>'') then
+      begin
+        if (s[erreur]='A') and (erreur=1) then
+        begin
+          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
+          delete(s,erreur,1);
+          Val(s,Adr,erreur);
+        end
+        else begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
+      end;
+    end;  
+    feux[lignecliquee+1].Btype_suiv3:=Btype;
+    feux[lignecliquee+1].Adr_el_suiv3:=Adr;
+    LabelInfo.caption:=' '; 
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+  end;
+end;
+
+procedure TFormConfig.EditDet4Change(Sender: TObject);
+var s : string;
+    i,erreur : integer;
+begin
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditDet4.Text;
+    Val(s,i,erreur);
+    //if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
+    LabelInfo.caption:=' ';
+    feux[lignecliquee+1].Adr_det4:=i;
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+    feux[lignecliquee+1].modifie:=true;
+  end;
+end;
+
+procedure TFormConfig.EditSuiv4Change(Sender: TObject);
+var s : string;
+    erreur,Btype,Adr : integer;
+    B : char;
+begin
+  if clicliste then exit;
+
+  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
+  with Formconfig do
+  begin
+    s:=EditSuiv4.Text;
+    if s='' then 
+    begin 
+      Btype:=0;
+      Adr:=0;
+    end
+    else
+    begin
+      Val(s,Adr,erreur);
+      if (erreur<>0) and (s<>'') then
+      begin
+        if (s[erreur]='A') and (erreur=1) then
+        begin
+          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
+          delete(s,erreur,1);
+          Val(s,Adr,erreur);
+        end
+        else begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
+      end;
+    end;  
+    feux[lignecliquee+1].Btype_suiv4:=Btype;
+    feux[lignecliquee+1].Adr_el_suiv4:=Adr;
+    LabelInfo.caption:=' '; 
+    s:=encode_sig(lignecliquee+1);
+    RichSig.Lines[lignecliquee]:=s;
+  end;
+end;
 
 end.
 

UnitPrinc.pas

@@ -143,6 +143,7 @@ type
     procedure ButtonAffTCOClick(Sender: TObject);
     procedure ButtonLanceCDMClick(Sender: TObject);
     procedure Affichefentredebug1Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
   private
     { Déclarations privées }
     procedure DoHint(Sender : Tobject);
@@ -289,7 +290,7 @@ var
   mod_branches,mod_act : array[1..100] of string;
   // l'indice du tableau aiguillage est son adresse
   aiguillage : array[0..MaxAcc] of Taiguillage;
-  // signaux de la fenêtre de droite - L'index du tableau n'est pas l'adresse du feu
+  // signaux - L'index du tableau n'est pas l'adresse du feu
   feux : array[1..MaxAcc] of record
                  adresse, aspect : integer; // adresse du feu, aspect (2 feux..9 feux 12=direction 2 feux .. 16=direction 6 feux)
                  Img : TImage;              // Pointeur sur structure TImage du feu
@@ -413,6 +414,7 @@ begin
   begin
     brush.Color:=couleur;
     Pen.Color:=clBlack;
+    //Affiche('clignote '+IntToSTR(x)+' '+intToSTR(y),clyellow);
     Ellipse(x-rayon,y-rayon,x+rayon,y+rayon);
   end;
   //Affiche(IntToSTR(y),clyellow);
@@ -1490,11 +1492,12 @@ begin
     exit;
   end;
 
-  // pilotage par USB ou par réseau de la centrale
+  // pilotage par USB ou par éthernet de la centrale
-  // test si pilotage inversé
+
   // Affiche('Accessoire '+intToSTR(adresse),clLime);
-  if hors_tension2=false then
+  if (hors_tension2=false) and (portCommOuvert or parSocketLenz) then
   begin
+    // test si pilotage aiguillage inversé
     if aiguillage[adresse].inversion=1 then
     begin
       if octet=1 then octet:=2 else octet:=1;
@@ -1595,8 +1598,6 @@ begin
   SetBit:=n or (1 shl position);
 end;
 
-
-
 // renvoie la chaîne de l'état du signal
 function chaine_signal(etat : word) : string;
 var aspect,combine : word;
@@ -1780,16 +1781,16 @@ begin
 end;
 
 {==========================================================================
-envoie les données au décodeur CDF pour un signal
+envoie les données au décodeur CDF
 ===========================================================================*}
 procedure envoi_CDF(adresse : integer);
 var index : integer;
   code,aspect,combine : word;
   s : string;
 begin
-  //***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
+  if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
   begin
-    //***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
+    ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     code:=EtatSignalCplx[adresse];
     code_to_aspect(code,aspect,combine);
     s:='Signal CDF: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -1810,7 +1811,7 @@ begin
 end;
 
 {==========================================================================
-envoie les données au décodeur LEB pour un signal
+envoie les données au décodeur LEB
 ===========================================================================*}
 procedure envoi_LEB(adresse : integer);
 var  code,aspect,combine : word;
@@ -1832,9 +1833,9 @@ var  code,aspect,combine : word;
   end;
 begin
 
-//***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
+if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
 begin
-  //***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
+  ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
   code:=EtatSignalCplx[adresse];
   code_to_aspect(code,aspect,combine);
   s:='Signal LEB: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -1909,9 +1910,9 @@ begin
   //index:=Index_feu(adresse);    // tranforme l'adresse du feu en index tableau
   //code:=feux[index].aspect; // aspect du feu;
 
-  //***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
+  if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
   begin
-    //***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
+    ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     code:=EtatSignalCplx[adresse];
     code_to_aspect(code,aspect,combine);
     s:='Signal NMRA: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -1955,9 +1956,9 @@ var modele,index: integer ;
 begin
   index:=Index_feu(adresse);    // tranforme l'adresse du feu en index tableau
 
-  //***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
+  if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
   begin
-    //***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
+    ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     code:=EtatSignalCplx[adresse];
     code_to_aspect(code,aspect,combine);
     s:='Signal Unisemaf: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2248,9 +2249,9 @@ procedure envoi_LDT(adresse : integer);
 var code,aspect,combine,mode : word;
     s : string;
 begin
-  //***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
+  if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
   begin
-    //***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
+    ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
     code:=EtatSignalCplx[adresse];
     code_to_aspect(code,aspect,combine);      
     s:='Signal LDT: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2323,9 +2324,8 @@ var aspect,code,combine : word;
     ralrap, jau ,Ancralrap,Ancjau : boolean;
     s : string;
 begin
-  //***if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
+  if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then  //; && (stop_cmd==FALSE))
   begin
-    
     code:=EtatSignalCplx[adresse];
     code_to_aspect(code,aspect,combine);
     s:='Signal Bahn: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2367,7 +2367,7 @@ begin
       sleep(40);
       pilote_ACC(adresse+Combine,2,feu) ;
     end;
-
+    ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
   end;
 end;
 
@@ -3456,12 +3456,13 @@ begin
   repeat
     i:=index_aiguillage(Adresse,Nbranche);
     if i=0 then inc(NBranche);
-  until (Nbranche>NbreBranches) or (i<>0);
-  //if (i<>0) then Affiche('aiguillage '+IntToSTR(adresse)+' trouvé en branche '+intToSTR(NBranche)+' index='+IntToSTR(i),clYellow);
   until (Nbranche>NbreBranches) or (i<>0);
   //if (i<>0) then Affiche('aiguillage '+IntToSTR(adresse)+' trouvé en branche '+intToSTR(NBranche)+' index='+IntToSTR(i),clYellow);
   branche_trouve:=NBranche;
-
+  IndexBranche_trouve:=i;
+end;
+
+procedure lit_config;
 var s,sa,chaine,SOrigine: string;
     c,paig : char;
     tec,tjd,tjs,s2,trouve,triple,debugConfig,multiple,fini,finifeux,trouve_NbDetDist,trouve_ipv4_PC,trouve_retro,
@@ -3511,6 +3512,23 @@ begin
           end;
         end;
       until (adresse=0);
+    end;
+
+begin
+  debugConfig:=false;
+  trouve_NbDetDist:=false;
+  trouve_ipv4_PC:=false;
+  trouve_retro:=false;
+  trouve_sec_init:=false;
+  trouve_init_aig:=false;
+  trouve_INTER_CAR:=false;
+  trouve_entete:=false;
+  trouve_IPV4_INTERFACE:=false;
+  trouve_lay:=false;
+  trouve_Tempo_maxi:=false;
+  trouve_PROTOCOLE_SERIE:=false;
+  trouve_TCO:=false;
+  trouve_Serveur_interface:=false;
   trouve_cdm:=false;
   trouve_NOTIF_VERSION:=false;
   trouve_fenetre:=false;
@@ -3544,11 +3562,12 @@ begin
     Affiche('Fichier client-gl.cfg non trouvé',clred);
   end;
   {$I+}
-  nv:=0; it:=0;
+  nv:=0; it:=0;
   {lecture du fichier de configuration}
   // taille de fonte
   repeat
     s:=lit_ligne;
+    //affiche(s,cllime);
     sa:=uppercase(Fonte_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
@@ -3559,7 +3578,7 @@ begin
       TailleFonte:=StrToINT(s);
       with FormPrinc.ListBox1 do
       begin
-        Font.Height:=TailleFonte;
+        Font.Height:=TailleFonte;
         ItemHeight:=TailleFonte+1;
       end;
     end;
@@ -3572,11 +3591,12 @@ begin
       inc(nv);
       trouve_ipv4_PC:=true;
       delete(s,i,length(sa));
-      i:=pos(':',s);
+      i:=pos(':',s);
       if i<>0 then begin adresseIPCDM:=copy(s,1,i-1);Delete(s,1,i);portCDM:=StrToINT(s);end;
     end;
 
     // adresse ip et port de la centrale
+    // AfficheDet:=true;
     sa:=uppercase(IPV4_INTERFACE_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
@@ -3584,45 +3604,49 @@ begin
       inc(nv);
       trouve_IPV4_INTERFACE:=true;
       delete(s,i,length(sa));
-      i:=pos(':',s);
+      i:=pos(':',s);
       if i<>0 then begin adresseIP:=copy(s,1,i-1);Delete(s,1,i);port:=StrToINT(s);end
       else begin adresseIP:='0';parSocketLenz:=false;end;
     end;
 
+    // configuration du port com
     sa:=uppercase(PROTOCOLE_SERIE_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       trouve_PROTOCOLE_SERIE:=true;
-      delete(s,i,length(sa));
+      delete(s,i,length(sa));
       if not(config_com(s)) then Affiche('Erreur port com mal déclaré : '+s,clred);
       portcom:=s;
     end;
 
     // temporisation entre 2 caractères
+    sa:=uppercase(INTER_CAR_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       delete(s,i,length(sa));
-      delete(s,i,length(sa));
+      trouve_INTER_CAR:=true;
       val(s,TempoOctet,erreur);
       if erreur<>0 then Affiche('Erreur temporisation entre 2 octets',clred);
     end;
 
     // temporisation attente maximale interface
+    sa:=uppercase(TEMPO_MAXI_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       delete(s,i,length(sa));
-      delete(s,i,length(sa));
+      trouve_Tempo_maxi:=true;
       val(s,TimoutMaxInterface,erreur);
       if erreur<>0 then Affiche('Erreur temporisation maximale interface',clred);
     end;
 
     // entete
+    sa:=uppercase(ENTETE_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
@@ -3630,41 +3654,44 @@ begin
       delete(s,i,length(sa));
       trouve_Entete:=true;
       val(s,Valeur_entete,erreur);
-      entete:='';
+      entete:='';
       case Valeur_entete of
        0 : begin entete:='';suffixe:='';end;
        1 : begin entete:=#$FF+#$FE;suffixe:='';end;
-       2 : begin entete:=#228;suffixe:=#13+#13+#10;end;
+       2 : begin entete:=#228;suffixe:=#13+#13+#10;end;
       end;
       if (erreur<>0) or (valeur_entete>2) then Affiche('Erreur déclaration variable '+entete_ch,clred);
     end;
+
     // avec ou sans initialisation des aiguillages
     sa:=uppercase(INIT_AIG_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
-    begin
+      trouve_init_aig:=true;
       inc(nv);
       delete(s,i,length(sa));
       AvecInitAiguillages:=StrToINT(s);
     end;
+
     sa:=uppercase(fenetre_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
-      inc(nv);
+      trouve_fenetre:=true;
-      delete(s,i,length(sa));
       delete(s,i,length(sa));
       val(s,fenetre,erreur);
       if fenetre=1 then Formprinc.windowState:=wsMaximized;
+    end;
 
     i:=pos(uppercase(section_init),s);
     if i<>0 then
-    if i<>0 then 
+    begin
       inc(nv);
       trouve_sec_init:=true;
       compile_section_init;
+    end;
 
     sa:=uppercase(verif_version_ch)+'=';
     i:=pos(sa,s);
@@ -3673,35 +3700,38 @@ begin
       trouve_verif_version:=true;
       inc(nv);
       delete(s,i,length(sa));
-      // vérification de la version au démarrage
+      // vérification de la version au démarrage
       verifVersion:=true;
       val(s,i,erreur);
       if erreur=0 then verifVersion:=i=1;
     end;
 
+    sa:=uppercase(NOTIF_VERSION_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       delete(s,i,length(sa));
       trouve_NOTIF_VERSION:=true;
-      // vérification de la version au démarrage
+      // vérification de la version au démarrage
       i:=0;
       val(s,i,erreur);
       notificationVersion:=i=1;
     end;
 
+    sa:=uppercase(TCO_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       delete(s,i,length(sa));
       trouve_TCO:=true;
-      // vérification de la version au démarrage
+      // vérification de la version au démarrage
       i:=0;
       val(s,i,erreur);
       AvecTCO:=i=1;
     end;
+
     sa:=uppercase(CDM_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
@@ -3709,38 +3739,41 @@ begin
       inc(nv);
       trouve_CDM:=true;
       delete(s,i,length(sa));
-      // vérification de la version au démarrage
+      // vérification de la version au démarrage
       i:=0;
       val(s,i,erreur);
       LanceCDM:=i=1;
     end;
+
     sa:=uppercase(LAY_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
-    begin
+      inc(nv);
       trouve_lay:=true;
       delete(s,i,length(sa));
       lay:=s;
     end;
+
     sa:=uppercase(SERVEUR_INTERFACE_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       trouve_serveur_interface:=true;
-      delete(s,i,length(sa));
+      delete(s,i,length(sa));
       i:=0;
       val(s,i,erreur);
       ServeurInterfaceCDM:=i;
     end;
+
     sa:=uppercase(RETRO_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
     begin
       inc(nv);
       trouve_retro:=true;
-      delete(s,i,length(sa));
+      delete(s,i,length(sa));
       i:=0;
       val(s,i,erreur);
       ServeurRetroCDM:=i;
@@ -3749,21 +3782,36 @@ begin
     sa:=uppercase(nb_det_dist_ch)+'=';
     i:=pos(sa,s);
     if i<>0 then
-    begin
+    begin
       inc(nv);
       trouve_NbDetDist:=true;
       delete(s,i,length(sa));
       i:=0;
       val(s,i,erreur);
-      if i<2 then i:=2;
-      Nb_Det_Dist:=i;
-    end;
-    inc(it);
-
-  until (Nv>=18) or (it>30);
       if i<2 then begin i:=2;Affiche('Attention '+nb_det_dist_ch+' ramené à '+IntToSTR(i),clOrange); end;
-  if (it>30) then
+      Nb_Det_Dist:=i;
-  begin 
+    end;
+    inc(it);
+
+  until (Nv>=18) or (it>30);
+
+  //affiche(IntToSTR(Nv)+' variables',cyan);
+  s:='';
+  if (it>30) then s:='ERREUR: manque variables dans config-gl.cfg :';
+
+  if not(trouve_NbDetDist) then s:=s+' '+nb_det_dist_ch;
+  if not(trouve_ipv4_PC) then s:=s+' '+IpV4_PC_ch;
+  if not(trouve_retro) then s:=s+' '+retro_ch;
+  if not(trouve_sec_init) then s:=s+' '+section_init;
+  if not(trouve_init_aig) then s:=s+' '+INIT_AIG_ch;
+  if not(trouve_lay) then s:=s+' '+LAY_ch;
+  if not(trouve_INTER_CAR) then s:=s+' '+INTER_CAR_ch;
+  if not(trouve_Tempo_maxi) then s:=s+' '+Tempo_maxi_ch;
+  if not(trouve_Entete) then s:=s+' '+Entete_ch;
+  if not(trouve_TCO) then s:=s+' '+TCO_ch;
+  if not(trouve_CDM) then s:=s+' '+CDM_ch;
+  if not(trouve_Serveur_interface) then s:=s+' '+Serveur_interface_ch;
+  if not(trouve_fenetre) then s:=s+' '+fenetre_ch;
   if not(trouve_NOTIF_VERSION) then s:=s+' '+NOTIF_VERSION_ch;
   if not(trouve_verif_version) then s:=s+' '+verif_version_ch;
   if not(trouve_fonte) then s:=s+' '+fonte_ch;
@@ -6781,6 +6829,8 @@ begin
   event_det_tick[N_event_tick].aiguillage:=adresse;
   event_det_tick[N_event_tick].etat:=pos;
   event_det_tick[N_event_tick].objet:=objet;
+
+  // Mettre à jour le TCO
   if AvecTCO then
   begin
     formTCO.Maj_TCO(Adresse);
@@ -7464,6 +7514,7 @@ var
 
 procedure TFormPrinc.FormCreate(Sender: TObject);
 var
+   i,j : integer;
    s,s2,Url,LocalFile : string;
    trouve,AvecMaj : Boolean;
    V_utile : real;
@@ -7651,9 +7702,12 @@ begin
   portCommOuvert:=false;
   ClientSocketCDM.close;
   ClientSocketLenz.close;
+  if TCO_modifie then 
     if MessageDlg('Le TCO a été modifié. Voulez vous le sauvegarder ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
       sauve_fichier_tco;
 end;
+
+
 // positionnement des aiguillages au démarrage : seulement en mode autonome
 procedure init_aiguillages;
 var i,pos : integer;
@@ -7668,11 +7722,7 @@ begin
       begin
         pos:=aiguillage[i].position;
         s:='Init aiguillage '+intToSTR(i)+'='+intToSTR(pos);
-      if pos=1 then s:=s+' (dévié)' else s:=s+' (droit)';
-      Affiche(s,cyan);
-      pilote_acc(i,pos,aig);
         if pos=1 then s:=s+' (dévié)' else s:=s+' (droit)';
-    end;
         Affiche(s,cyan);
         pilote_acc(i,pos,aig);
         application.processMessages;
@@ -7686,11 +7736,10 @@ begin
 var index,aspect,i,a,x,y,x0,y0,Bimage,adresse,TailleX,TailleY,orientation : integer;
    imageFeu : Timage;
    frx,fry : real;
-    s : string;
-begin
     s : string;
 begin
-  if (Tempo_init=1) and AvecInit then
+  inc(tick);
+  if Tempo_init>0 then dec(Tempo_init);
   if (Tempo_init=1) and AvecInit then
   begin
     if not(ConfigNulle) and not(ferme) and (AvecInitAiguillages=1) then
@@ -7720,6 +7769,7 @@ begin
     begin
       adresse:=feux[i].adresse;
       a:=EtatsignalCplx[adresse];     // a = état binaire du feu
+      if TestBit(a,jaune_cli) or TestBit(a,ral_60) or
          TestBit(a,rappel_60) or testBit(a,semaphore_cli) or
          testBit(a,vert_cli) or testbit(a,blanc_cli) then
       begin
@@ -8164,10 +8214,17 @@ var i,j,objet,posST,posAC,posDT,posSG,posXY,k,l,erreur, adr,adr2,etat,etataig,
 
 procedure Interprete_trameCDM(trame_CDM:string);
 var i,j,objet,posST,posAC,posDT,posSG,posXY,k,l,erreur, adr,adr2,etat,etataig,
-    vitesse,etatAig2,name,prv,nbre,nbreVir,long : integer ;
+    vitesse,etatAig2,name,prv,nbre,nbreVir,long : integer ;
-    x,y,x2,y2 : longint ;
+    x,y,x2,y2 : longint ;
-      s,ss,train,commandeCDM : string;
+      s,ss,train,commandeCDM : string;
+      traite,sort : boolean;
+begin
+{
+            trame_CDM:='S-R-14-0004-CMDACC-__ACK|000|S-E-14-5162-CMDACC-ST_DT|052|05|NAME=2756;OBJ=2756;AD=518;TRAIN=CC406526;STATE=1;';
+  trame_cdm:=trame_cdm+'S-E-14-5163-CMDACC-ST_DT|049|05|NAME=2757;OBJ=2757;AD=518;TRAIN=_NONE;STATE=1;';
   trame_cdm:=trame_cdm+'S-E-14-5164-CMDACC-ST_DT|049|05|NAME=2758;OBJ=2758;AD=519;TRAIN=_NONE;STATE=0;';
+  trame_cdm:=trame_cdm+'S-E-14-5165-CMDACC-ST_DT|049|05|NAME=2759;OBJ=2759;AD=519;TRAIN=_NONE;STATE=0';
+  trame_cdm:=trame_cdm+'S-E-14-5166-CMDACC-ST_DT|049|05|NAME=7060;OBJ=7060;AD=520;TRAIN=_NONE;STATE=0';
   trame_cdm:=trame_cdm+'S-E-14-5167-CMDACC-ST_DT|051|05|NAME=7061;OBJ=7061;AD=520;TRAIN=BB25531;STATE=0';
   trame_cdm:=trame_cdm+'S-E-14-5168-CMDACC-ST_DT|049|05|NAME=7057;OBJ=7057;AD=517;TRAIN=_NONE;STATE=0';
   trame_cdm:=trame_cdm+'S-E-14-5169-CMDACC-ST_DT|049|05|NAME=7058;OBJ=7058;AD=517;TRAIN=_NONE;STATE=0';
@@ -8183,16 +8240,20 @@ begin
   k:=0;
   //Affiche('L='+InTToSTR(length(recuCDM)),clyellow);
   repeat
-    // trouver la longueur de la chaîne de paramètres
+    // trouver la longueur de la chaîne de paramètres
-    i:=pos('|',trame_CDM);
+    i:=pos('|',trame_CDM);
-    val(copy(trame_CDM,i+1,5),long,erreur);
+    val(copy(trame_CDM,i+1,5),long,erreur);
+    //Affiche('long chaine param='+intToSTR(long),clyellow);
+    if long=0 then
     begin
       //if debugTrames then Affiche('Longueur nulle',clYellow);
+      if pos('ACK',trame_cdm)<>0 then Ack_cdm:=true;
+      i:=posEx('|',trame_CDM,i+1);
       if i=0 then begin Affiche('Erreur trames CDM manque 2ème |',clred);exit;end;
       delete(trame_cdm,1,i);
     end;
 
-    end;
+    if long<>0 then
     begin
       // trouver le nombre de paramètres
       i:=posEx('|',trame_CDM,i+1);
@@ -8207,17 +8268,16 @@ begin
       //Affiche('nbre='+IntToSTR(nbre),clyellow);
       // compter le nombre de virgules qui doit être égal au nombre de paramètres
       NbreVir:=0;  // nombre de virgules
-    repeat
+      repeat
         i:=posEx(';',trame_CDM,i+1);
         if i<>0 then inc(NbreVir);
       until (i=0) or (NbreVir=nbre);
       if i=0 then
       begin
         if debugTrames then AfficheDebug('tronqué : '+trame_CDM,clyellow);
-      residuCDM:=trame_CDM;
+        residuCDM:=trame_CDM;
         Nbre_recu_cdm:=0;
         exit;
-    end;
       end;
 
       CommandeCDM:=copy(trame_CDM,1,i);
@@ -8312,7 +8372,7 @@ begin
         train:=copy(commandeCDM,i+6,j-i-6);
         delete(commandeCDM,i,7);
 
-      //Affiche('Train=*'+Train+'*',clOrange);
+        //Affiche('Train=*'+Train+'*',clOrange);
         i:=posEx('STATE=',commandeCDM,posDT);ss:=copy(commandeCDM,i+6,10);
         val(ss,etat,erreur); Delete(commandeCDM,i,7);
 
@@ -8403,6 +8463,8 @@ begin
         val(ss,y2,erreur);
         //Affiche('Y2='+IntTostr(y2),clyellow);
         Delete(commandeCDM,i,l-i+1);
+
+        Delete(commandeCDM,posXY,12);
       end;
 
       inc(k);
@@ -8420,14 +8482,15 @@ procedure TFormPrinc.ClientSocketCDMRead(Sender: TObject;Socket: TCustomWinSocke
 end;
 
 // réception d'un message de CDM rail
-procedure TFormPrinc.ClientSocketCDMRead(Sender: TObject;Socket: TCustomWinSocket);
+procedure TFormPrinc.ClientSocketCDMRead(Sender: TObject;Socket: TCustomWinSocket);
-  var i,l,n : integer ;
+  var i,l,n : integer ;
       s,ss,train : string;
       traite,sort : boolean;
 begin
   inc(Nbre_recu_cdm);
   //if Nbre_recu_cdm>1 then Affiche('Empilement de trames CDM: '+intToSTR(Nbre_recu_cdm),clred);
   recuCDM:=ClientSocketCDM.Socket.ReceiveText;  // commandeCDM est le morceau tronquée de la fin de la réception précédente
+  //if residuCDM<>'' then Affiche(recuCDM,clLime);
   residuCDM:='';
   if trace then
   begin
@@ -8819,6 +8882,11 @@ begin
 
 procedure TFormPrinc.locoClick(Sender: TObject);
 begin
+  // vitesse et direction 18 pas
+
+  vitesse_loco(3,20,true);
+end;
+
 
 procedure TFormPrinc.Button1Click(Sender: TObject);
 begin
@@ -8826,4 +8894,5 @@ begin
 end;
 
 
+begin
 

verif_version.dfm

@@ -1,6 +1,6 @@
 object FormVersion: TFormVersion
-  Left = 500
+  Left = 497
-  Top = 341
+  Top = 186
   Width = 468
   Height = 194
   Caption = 'V'#233'rification de version'

versions.txt

@@ -43,7 +43,7 @@ Version 2.2  : Correction d'un bug sur le verrouillage des signaux au carr
 version 2.21 : Paramétrage du nombre de détecteurs considérés comme trop distants
                Correction d'un bug de la 2.2
 version 2.3  : Changement de la méthode de réception des trames du protocole IPC de CDM-Rail
-               
+               Affichage au démarrage des variables manquantes du fichier config-gl.cfg