V4.3

2022-06-15 20:18:14 +02:00
parent 932e5590c1
commit 0cac6550ee
22 changed files with 649 additions and 400 deletions
--- a/Unit_Pilote_aig.pas
+++ b/Unit_Pilote_aig.pas
@@ -70,6 +70,7 @@ begin
      LabelAdr1.Caption:='Adresse1: '+intToSTR(aiguille);
      aiguille2:=aiguillage[i].DDevie;
      LabelAdr2.Caption:='Adresse2: '+intToSTR(aiguille2);
+      s:=s+'/'+intToSTR(aiguille2);
      LabelAdr2.Visible:=true;
      LabelAdr1.Visible:=true;
      ButtonDev2.Visible:=true;