V9.0

2024-07-21 10:25:58 +02:00
parent f2cbfc2936
commit d2909cc5eb
43 changed files with 9783 additions and 3658 deletions
--- a/UnitFicheHoraire.pas
+++ b/UnitFicheHoraire.pas
@@ -12,6 +12,7 @@ type
    StringGridFO: TStringGrid;
    Label1: TLabel;
    LabelErreur: TLabel;
+    Label2: TLabel;
    procedure ButtonOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
@@ -201,7 +202,6 @@ begin
            if champ<>0 then delete(s,1,champ);
          end;

-
          inc(col);
        until (col>stringGridFO.ColCount-1) or (pos(',',s)=0);