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

V9.76

Browse Source 
V9.76
This commit is contained in:
f1iwq2
2025-01-17 11:43:15 +01:00
parent 95cf06b007
commit e8b0207e63
25 changed files with 1960 additions and 752 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UnitRouteTrains.pas
View File

@@ -688,7 +688,7 @@ begin
until (i>trains[indexTrainFR].routePref[0][0].adresse) or trouve;
if trouve then
begin
LabelRoute.Caption:='La route existe déja en zone sauvegardée';
LabelRoute.Caption:='La route existe déja en zone mémorisée';
exit;
end;
@@ -908,12 +908,12 @@ var i,n : integer;
begin
if IrPref<1 then exit;
s:='Voulez-vous supprimer la route sauvegardée n°'+intToSTR(IrPref)+' ?';
s:='Voulez-vous supprimer la route mémorisée n°'+intToSTR(IrPref)+' ?';
if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;
n:=trains[indexTrainFR].routePref[0][0].adresse; // nombre de routes
for i:=IrPref to n do
tabloRoute[i]:=tabloRoute[i+1];
for i:=IrPref to n-1 do
trains[indexTrainFR].routePref[i]:=trains[indexTrainFR].routePref[i+1];
trains[indexTrainFR].routePref[0][0].adresse:=n-1;
dec(irPref);
maj_infos(indexTrainFR);