V8.8

2024-05-03 20:01:01 +02:00
parent b10f983b0b
commit f2cbfc2936
28 changed files with 6672 additions and 2268 deletions
--- a/UnitFicheHoraire.pas
+++ b/UnitFicheHoraire.pas
@@ -28,6 +28,7 @@ const

 var
  FormFicheHoraire: TFormFicheHoraire;
+  Nombre_horaires : integer;

  GrilleHoraire : Array[1..MaxHoraire] of record
                    NomTrain : string ;
@@ -208,6 +209,7 @@ begin
      end;
    end;
  until eof(f) or (ligne>MaxHoraire);
+  Nombre_horaires:=ligne-1;

  closefile(f);
  couleurs_Fiche;