V5.74

UnitTCO.pas

@@ -467,6 +467,20 @@ begin
     begin
       repeat
         readln(fichier,s);
+        s:=Uppercase(s);
+        //Affiche(s,clWhite);
+        c:=#0;
+        if length(s)>0 then c:=s[1];
+      until ((c<>'/') and (s<>'')) or eof(fichier) ;
+      lit_ligne:=s;
+    end;
+
+begin
+  {$I+}
+  try
+    assign(fichier,'tco.cfg');
+    reset(fichier);
+  except
     Affiche('Nouveau tco',clyellow);
     NbreCellX:=35;NbreCellY:=20;LargeurCell:=35;HauteurCell:=35;
     RatioC:=10;
@@ -485,6 +499,7 @@ begin
       for y:=1 to NbreCellY do
         tco[x,y].CouleurFond:=clfond;
     exit;
+  end;
   {$I-}
   x:=1;y:=1;NbreCellX:=0;NbreCellY:=0; RatioC:=10;
   trouve_clAllume:=false;