V8.2

UnitAnalyseSegCDM.pas

@@ -3329,10 +3329,19 @@ procedure Compilation;
 // compile le fichier Texte de CDM et l'importe
 procedure Compilation;
 var s : string;
-    nombre,position : integer;
-begin
+    nombre,position : integer;
+begin
   nombre:=Formprinc.FenRich.Lines.Count;
-  if pos('module',s)=0 then
+  if nombre>0 then
+  begin
+    s:=lowercase(Formprinc.fenRich.Lines[0]);
+    if pos('module',s)=0 then
+    begin
+      Affiche('Pas de module CDM détecté',clred);
+      exit;
+    end;
+  end
+  else
   begin
     Affiche('Tampon vide',clred);
     exit;
@@ -3346,7 +3355,7 @@ begin
   //debugBranche:=true;
   Lignes:=Formprinc.FenRich.Lines;
   nligne:=0; nSeg:=0;
-  DernAdrAig:=0;
+  DernAdrAig:=0;
   xminiCDM:=0;yMiniCDM:=0;xmaxiCDM:=0;yMaxiCDM:=0;
 
   NomModuleCDM:=AnsiLowerCase(Lignes[0]+'.cdm');