V3.8

UnitDebug.pas

@@ -98,19 +98,12 @@ type
 
 Const
 Max_Event_det_tick=30000;
-Max_event_det=400;
-Max_Trains=50;
 
 var
   FormDebug: TFormDebug;
   NivDebug,signalDebug : integer;
   AffSignal,AffAffect,initform,AffFD,debug_dec_sig : boolean;
   N_event_det : integer; // index du dernier évènement (de 1 à 20)
-  event_det : array[1..Max_event_det] of integer;
-  event_det_train : array[1..Max_Trains] of record
-                    NbEl : integer;
-                    Det : array[1..3] of integer; // tableau des evts détecteurs par train
-                    end;
   N_Event_tick : integer ; // dernier index
 
   // tableau des évènements détecteurs et aiguillages
@@ -453,9 +446,10 @@ procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
 var det,erreur : integer;
 begin
   val(EditSimuDet.Text,det,erreur);
+  
   if erreur=0 then
   begin
-    Event_Act(det,1,'');
+    Event_Act(det,0,1,'');
   end;
 end;
 
@@ -465,7 +459,7 @@ begin
   val(EditSimuDet.Text,det,erreur);
   if erreur=0 then
   begin
-    Event_Act(det,0,'');
+    Event_Act(det,0,0,'');
   end;
 end;