V2.11

version 2.11

UnitPrinc.pas

@@ -222,7 +222,7 @@ Taccessoire     = (aig,feu);
 TMA             = (valide,devalide);
 
 var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
-  AvecInitAiguillages,tempsCli,NbreFeux,pasreponse,AdrDevie,
+  AvecInitAiguillages,tempsCli,NbreFeux,pasreponse,AdrDevie,fenetre,
   NombreImages,signalCpx,branche_trouve,Indexbranche_trouve,Actuel,Signal_suivant,
   Nbre_recu_cdm,Tempo_chgt_feux,Adj1,Adj2,NbrePN,ServeurInterfaceCDM,
   ServeurRetroCDM,TailleFonte : integer;
@@ -3592,7 +3592,8 @@ begin
       AvecInitAiguillages:=StrToINT(s); 
     end;
 
-    sa:='FENETRE=';
+    sa:='FENETRE=';
+    i:=pos(sa,s);
     if i<>0 then 
     begin
       inc(nv);
@@ -4822,7 +4823,8 @@ begin
       begin
         A:=aiguillage[adr2].AdroitB;
         adr2:=aiguillage[adr2].Adroit;
-      end
+      end
+      else 
       begin 
         s:='Erreur 1021 TJD '+intToSTR(adr)+' non résolue';
         affichedebug(s,clred);
@@ -5154,8 +5156,8 @@ begin
           if nivDebug=3 then AfficheDebug('501 - Détection Précédent=TJD/S Suivant=TJD/S',clyellow);
           // subsituer la pointe
           actuelCalc:=aiguillage[ActuelCalc].APointe;
-        end;
-      end;
+        end;
+      end;
     precCalc:=actuelCalc;
     TypeprecCalc:=TypeActuelCalc;
     actuelCalc:=AdrSuiv;
@@ -5206,16 +5208,6 @@ begin
 
     AdrFonc:=BrancheN[branche,i].Adresse;
     BtypeFonc:=BrancheN[branche,i].BType;
-
-    i:=0;
-    repeat
-      if BtypeFonc<>1 then
-      begin
-        Adr:=suivant_alg3(AdrPrec,BtypePrec,AdrFonc,BtypeFonc,2);  // élément suivant mais arret sur aiguillage en talon mal positionnée
-       { if (typeGen=2) then // si le précédent est une TJD/S et le suivant aussi
-        begin
-          if ((aiguillage[Adr].modele=2) or (aiguillage[Adr].modele=3)) and
-           ((aiguillage[adrFonc].modele=2) or (aiguillage[AdrFonc].modele=3)) then
 
     i:=0;
     repeat
@@ -5495,6 +5487,7 @@ end;
 
 
 
+// renvoie l'état du signal suivant
 // si renvoie 0, pas trouvé le signal suivant.
 // rang=1 pour feu suivant, 2 pour feu suivant le 1, etc
 // Dans AdresseFeuSuivant : adresse du feu suivant (variable globale)
@@ -5609,9 +5602,9 @@ begin
         end;
         
         if (AdrFeu<>0) then // si l'adresse est <>0
+        begin
           if (Feux[i].Adr_el_suiv1<>prec) then   // le feu est-il dans le bon sens de progression?
-          if (Feux[i].Adr_el_suiv1<>prec) then   // le feu est-il dans le bon sens de progression?
-          begin
+          begin
             // oui
             inc(num_feu);
             Etat:=EtatSignalCplx[AdrFeu];