V7.0B

UnitAnalyseSegCDM.pas

@@ -1265,7 +1265,7 @@ end;
 procedure peindre(Indextrain,x,y : integer;Zoom : single);
 var
   XFormScale,XFormRot,XFormXLat,XForm,XFormOld  : TXForm;  //  matrice
-  GMode,x0,y0,x1,y1,x2,y2,x3,y3,c1,c2,larg,haut,ax,ay,l2,h2       : Integer;
+  GMode,x0,y0,x1,y1,x2,y2,x3,y3,larg,haut,ax,ay,l2,h2       : Integer;
   d,alpha,angle,z : double;
   sinA,cosA : extended;
   tv : array[0..3] of integer;
@@ -3328,7 +3328,6 @@ end;
 
 // compile le fichier Texte de CDM et l'importe
 procedure Compilation;
-var s : string;
 var s : string;
     nombre,position : integer;
 begin
@@ -3377,7 +3376,7 @@ begin
     begin
       //affiche(s,clred);
       compile_periph;
-    end;
+    end;
     inc(nligne);
   until (nligne>nombre);
   //Affiche('fin de la compilation',cllime);
@@ -3388,7 +3387,7 @@ begin
   formAnalyseCDM.Show;
   formprinc.ButtonAffAnalyseCDM.Visible:=true;
   Affiche('Compilation terminée. Nombre de segments='+intToSTR(nSeg),clWhite);
-
+
   remplit_Aig_cdm;
   Affiche('nombre d''aiguillages: '+intToSTR(Naig_cdm),clyellow);