Discussion :

[Gilbert Geyer]

Bonjour,

J'ai le message d'erreur suivant lors de la compilation sous Delphi 5 :
[Erreur fatale] uLesBezier.pas(1013): Erreur interne : C1141
J'ai aussi fouillé le net pour savoir ce qu'est cette erreur C1141 mais sans trouver.
C'est quoi cette erreur et comment la rectifier ???. S.V.P
Elle survient dans ce bout du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
end else begin
             if (TD=PolyGoneEtoile) and (not odd(nbPc)) then
             begin 
                 jp1:=(nbPc shr 1)-1;
                 if PointSurDroiteD(Poly[0],Poly[jp1], Pt, m)
                 then begin Result:=True; EXIT; end;
                 for jpc:=1 to jp1 do begin
                      if PointSurDroiteD(Poly[jpc-1],Poly[jpc], Pt, m)
                      then begin Result:=True; EXIT; end;
                 end;
                 if jp1 = jp1 then begin //<-- bidouille contournant l''Erreur fatale C1141 sinon il me faut supprimer les 2 lignes suivantes  
                     if PointSurDroiteD(Poly[jp1+1],Poly[High(Poly)], Pt, m)
                     then begin Result:=True; EXIT; end;
                 end;
                 {if jp1 = jp1 then begin //<- mais ici la même bidouille ne résoud pas l''Erreur fatale C1141
                     for jpc:=jp1+2 to High(Poly) do begin
                         if PointSurDroiteD(Poly[jpc-1],Poly[jpc], Pt, m)
                         then begin Result:=True; EXIT; end;
                     end;
                 end;}
             end;
         end;
end; // PointSurPolygone

Donc si quelqu'un avait une idée cela m'arrangerait bien.

A+.

[JustMe]

Vous avez essayer désactiver l'optimisation des options de compilation?

[Rayek]

Euh ... quel est l’intérêt de comparer une valeur à elle même ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if jp1 = jp1 then

[Gilbert Geyer]

Bonjour,

JustMe : Vous avez essayer désactiver l'optimisation des options de compilation?

Non, mais je vais essayer.

Rayek : Euh ... quel est l’intérêt de comparer une valeur à elle même ?
if jp1 = jp1 then

Bin, comme je n'ai pas trouvé de réponse sur le net, ni d'erreur de syntaxe dans le code j'ai essayé toutes sortes de bidouillages pour contourner l'erreur de compilation, et celle-ci a permis de faire digérer les deux lignes de code suivant ce if ... mais la même bidouille ne marche pas pour la suite.

Bon, je vais essayer de desactiver l'optimisation des options de compilation.

A+.

[Gilbert Geyer]

Re-bonjour,

La désactivation de l'optimisation des options de compilation n'a rien donné.

Par contre en réorganisant le bout de code comme suit le compilo ne tousse plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
function PointSurPolygone(const Pt : tPointD; TD : tTypeDessin; Poly: tAOPD): boolean;
const    m = 5; // marge de tolérance
var      nbPc,jp1 : integer;
 
         function PointSurAutres(j1,j2 : integer) : boolean;
         var      j : integer;
         begin    for j:=j1 to j2 do begin
                      Result:=PointSurDroiteD(Poly[j-1],Poly[j], Pt, m);
                      if Result then Break;
                  end;
         end;
 
begin    Result:=False; nbPc:=length(Poly);
         if ((TD=PolyGoneEtoile) or (TD=PolygoneER)) and (not odd(nbPc)) then
         begin jp1:=(nbPc shr 1)-1;
               if PointSurDroiteD(Poly[0],Poly[jp1], Pt, m) then begin Result:=True; EXIT; end;
               Result:=PointSurAutres(1,jp1);
               if Result then EXIT;
               if PointSurDroiteD(Poly[jp1+1],Poly[High(Poly)], Pt, m) then begin
                    Result:=True; EXIT;
               end;
               Result:=PointSurAutres(jp1+2,High(Poly));
         end else
         begin if PointSurDroiteD(Poly[0], Poly[High(Poly)], Pt, m) then
               begin Result:=True; EXIT; end;
               Result:=PointSurAutres(1,High(Poly));
             EXIT;
         end;
end; // PointSurPolygone

Bon, je vais marquer comme résolu bien que j'aurais bien aimé savoir ce qu'est cette Erreur interne : C1141

A+.