V7.1

2023-08-12 15:09:33 +02:00
parent 1b54657c0c
commit af03d91a65
22 changed files with 3847 additions and 1002 deletions
--- a/UnitCDF.pas
+++ b/UnitCDF.pas
@@ -103,7 +103,7 @@ procedure TFormCDF.FormActivate(Sender: TObject);
 var erreur : integer;
 begin
  Val(FormConfig.EditAdrSig.text,Adresse,erreur);
-  index:=index_feu(Adresse);
+  index:=index_Signal(Adresse);
  LabelTitre.caption:='Adresse du signal: '+intToSTR(adresse);
  erreur:=feux[index].decodeur;
  feux[0]:=feux[index];