V9.0

2024-07-21 10:25:58 +02:00
parent f2cbfc2936
commit d2909cc5eb
43 changed files with 9783 additions and 3658 deletions
--- a/UnitDebug.pas
+++ b/UnitDebug.pas
@@ -464,7 +464,7 @@ begin
  if (erreur<>0) or (adr<1) then exit;
  ancdebug:=NivDebug;
  NivDebug:=3;
-  if PresTrainPrec(Adr,Nb_cantons_Sig,false,voie,adrtrain) then AfficheDebug('Présence train '+intToSTR(AdrTrain),clYellow) else
+  if PresTrainPrec(Adr,Nb_cantons_Sig,false,adrtrain,voie) then AfficheDebug('Présence train '+intToSTR(AdrTrain),clYellow) else
    AfficheDebug('Absence train',clyellow);
  NivDebug:=AncDebug;
 end;