V10.2

2025-03-19 15:46:50 +01:00
parent 662da541c0
commit cc07ac603c
20 changed files with 3325 additions and 9903 deletions
--- a/UnitDebug.pas
+++ b/UnitDebug.pas
@@ -473,7 +473,7 @@ begin
  if (erreur<>0) or (adr<1) then exit;
  ancdebug:=NivDebug;
  NivDebug:=3;
-  if PresTrainPrec(Adr,Nb_cantons_Sig,true,adrtrain,voie) 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;