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

V8.42

Browse Source
This commit is contained in:
f1iwq2
2024-02-10 10:47:29 +01:00
parent 039f66ed6f
commit b4d968c6ea
15 changed files with 1176 additions and 476 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Unitplace.pas
View File

@@ -177,36 +177,36 @@ begin
if (prec<9990) then
begin
inc(it);
{
detecteur[detect].etat:=true;
detecteur[detect].AdrTrain:=trains[i].adresse;
detecteur[detect].train:=placement[i].train;
detecteur[detect].IndexTrain:=i;
// valider zone précédente
MemZone[prec,detect].etat:=true;
MemZone[prec,detect].train:=placement[i].train;
MemZone[prec,detect].Adrtrain:=trains[i].adresse;
MemZone[prec,detect].NumTrain:=i;
MemZone[prec,detect].IndexTrain:=i;
//Affiche(inttostr(prec)+' '+intToSTR(detect),clorange);
// remplir 1er élément du tableau
event_det_train[it].NbEl:=1 ;
event_det_train[it].AdrTrain:=trains[i].adresse;
event_det_train[it].det[1].adresse:=prec;
event_det_train[it].det[1].etat:=false;
event_det_train[it].nom_train:=placement[i].train;
inc(N_trains);
}
inc(N_trains);
// essai-------------------------
Event_Detecteur(detect,true,nomtrain);
detecteur[detect].AdrTrain:=trains[i].adresse;
// -----------------------------
Affiche('Positionnement train '+detecteur[detect].train+' sur détecteur '+intToSTR(detect)+' vers '+Ssuiv,clLime);
end
else
@@ -384,7 +384,7 @@ begin
Maj_Signaux(true); // avec détecteurs
s:='Lancement du train '+detecteur[adrDet].train+' depuis détecteur '+intToSTR(adrDet);
Affiche(s,clYellow);
if traceListe then AfficheDebug(s,clyellow);
if traceListe then AfficheDebug(s,clyellow);
reserve_canton(AdrDet,placement[j].detdir,adrtrain,0,nCantonsRes);
end