Discussion :

[defluc]

Bonsoir à tous,

Cela fait plus d'une semaine que je cherche à contrecarrer une erreur aléatoire qui se produit parfois à la première exécution d'une commande, mais pas toujours. L'erreur se produit plus souvent quand je réexécute la commande sans sortir du programme mais sans que cela soit systématique.

Bizarrement, il suffit d'ajouter une instruction affichant des variables à tester pour que l'erreur ne survienne plus.

Quand l'erreur se produit, je constate que le programme tente d'accéder à une valeur de tableau qui va au delà des limites de celui-ci.

Voici un fragment de ma source

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
30
31
32
33
34
35
36
37
38
Function AddNearestPolygFromRoad(Pnt : MapWinGis_Tlb.Point; Position : Integer;
                  Dx, Dy : Double; InList : TList;  RefSf : ShapeFile): TList;
Var
  Ext : Extents;
  X, Y, IncX, IncY, Incr : Extended;
  i, j, NoPolyg : Integer;
  Polyg : MapWinGis_Tlb.Shape;
  PolygList : OleVariant;
  TmpPolygList : Array of Integer;
  PolygExist, Condition : Boolean;
begin
  Incr := 1;
  if Dx = 0 then IncX := Incr else IncX := 0;
  if Dy = 0 then IncY := Incr else IncY := 0;
  X := Pnt.x; Y := Pnt.Y;
  PolygExist := False;
  Ext := RefSf.Extents as Extents;
  Condition := False;
 
  While Not Condition do  //  construction de l'extents minimum comportant
  begin                   //  un polygone
    Dx := Dx + IncX;      //  incrémentation des dimensions de l'extent
    Dy := Dy + IncY;
    Ext.SetBounds(X - Dx, y - Dy, 0, X + Dx, y + Dy, 0);
    PolygExist := RefSf.SelectShapes(Ext, 0, Intersection, PolygList);
    if Not PolygExist then Continue;
    TmpPolygList := PolygList;
    For i := 0 to Length(TmpPolygList) -1 do
    begin
      Polyg := CoShape.Create;
      Polyg := RefSf.Shape[TmpPolygList[i]];
      For j := 1 to Polyg.numPoints - 1 do
      begin
      ...
      ...
    end;
  end;
end;

Il suffit que j'ajoute

Code :

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

1
2
3
4
if i > Length(TmpPolygList) - 1 then
begin
ShowMessage('Probable error : i > Length(TmpPolygList) - 1');
end;

pour que l'erreur ne se produise plus.

Une hypothèse : l'impossibilité de libérer TList.

Si vous en avez une autre, je suis preneur.

Merci pour vos suggestions

[ShaiLeTroll]

Evite les Objets en retour de fonction, ce n'est pas un problème en soit, c'est juste que l'appel n'est pas toujours très beau, et cela complique la libération de l'objet en cas d'erreur

Code :

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

Function AddNearestPolygFromRoad(Pnt : MapWinGis_Tlb.Point; Position : Integer; Dx, Dy : Double; InList : TList; OutList : TList;  RefSf : ShapeFile): Boolean;

Ensuite, une erreur aléatoire avec un tableau, je connais, j'en ai eu une récemment, en fait, l'erreur ne se produit pas à l'endroit que tu le crois !
Dans ton code, tu as un moment, où tu écris quelque part où il ne fallait pas, genre dans une boucle de tableau, tu as oublié le -1 ... et cet endroit était ton tableau ou un objet et quand tu l'utilise, ça casse !

je te conseille de remplacer, je trouve cela plus pratique, plus lisible

Code :

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

For i := 0 to Length(TmpPolygList) -1 do

par

Code :

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

For i := Low(TmpPolygList) to High(TmpPolygList) do

ensuite, je trouve le code suivant étrange :

Code :

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

1
2
Polyg := CoShape.Create;
Polyg := RefSf.Shape[TmpPolygList[i]];

tu affecte Polyg deux fois, tu perds la première instance ...