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

V8.32

Browse Source
This commit is contained in:
f1iwq2
2023-12-21 12:38:21 +01:00
parent 8423b55ed3
commit 2356e18f43
15 changed files with 1523 additions and 1431 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Unitplace.pas
View File

@@ -142,7 +142,7 @@ begin
end;
raz_tout;
for detect:=1 to NbMemZone do
for detect:=1 to NbMaxDet do
begin
detecteur[detect].train:='';
detecteur[detect].AdrTrain:=0;
@@ -167,7 +167,7 @@ begin
val(s,detect,erreur);
val(Ssuiv,Suiv,erreur);
NomTrain:=trains[i].nom_train;
if (detect>NbMemZone )then LabelTexte.caption:='Erreur détecteur train '+intToSTR(i);
if (detect>NbMaxDet )then LabelTexte.caption:='Erreur détecteur train '+intToSTR(i);
if detect<>0 then
begin
prec:=det_suiv_cont(Suiv,detect,1); // détecteur précédent (d'ou vient la loco) arret sur suivant