easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V10.82

Browse Source
This commit is contained in:
f1iwq2
2026-01-17 11:19:04 +01:00
parent 4b997f5de1
commit 7daf7e28aa
24 changed files with 1157 additions and 2334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UnitRouteTrains.pas
View File

@@ -97,7 +97,6 @@ implementation
// renvoie l'adresse du signal du train sur détecteur
function Adresse_signal_det_train(detect,IndexTrain : integer) : integer;
var voie1,voie2,indexSig1,IndexSig2,AdrSig1,AdrSig2,IndexSig,AdrSig : integer;
s : string;
begin
if detect=0 then
begin
@@ -160,9 +159,8 @@ end;
// démarre un train si le signal n'est pas au rouge
// appelé par gestion des horaires dans le timer ou bouton rouler 1 train ou rouler tous les trains
function demarre_index_train(indexTrain : integer) : boolean;
var i,n,det1,el2,vitesse,AdrTrain,idcanton,voie1,voie2,indexSig1,indexSig2,AdrSig1,AdrSig2,AdrSig,
var i,vitesse,AdrTrain,idcanton,
detect,indexSig,etsign : integer;
tel2 : tequipement;
trouve : boolean;
Train,s : string;