Discussion :

[Rustine]

Bonjour à tous,
J'utilise des tableaux dynamique pour initialiser les variables d'un algo de simulation.
Avant de lancer une nouvelle simulation je reset mes variables.
Tout se passe bien sauf pour 1 où delphi me génère une erreur EInvalidPointer.

Je n'arrive pas à comprendre pourquoi ca bloque vu que je fais exactement la même chose pour les autres.

En débug j'ai pisté l'adresse memoire de mon tableau dans le cas où elle changerait mais que nenni, de plus je vois bien le contenu de mon tableau.

Cette erreur apparrait quelquesoit la methode Finalize(Tableau) et SetLength(Tableau,0).

Si quelqu'un à une idée elle sera la bienvenue.

Rustine

[slimjoe]

Bonjour à tous,
J'utilise des tableaux dynamique pour initialiser les variables d'un algo de simulation.
Avant de lancer une nouvelle simulation je reset mes variables.
Tout se passe bien sauf pour 1 où delphi me génère une erreur EInvalidPointer.

Je n'arrive pas à comprendre pourquoi ca bloque vu que je fais exactement la même chose pour les autres.

En débug j'ai pisté l'adresse memoire de mon tableau dans le cas où elle changerait mais que nenni, de plus je vois bien le contenu de mon tableau.

Cette erreur apparrait quelquesoit la methode Finalize(Tableau) et SetLength(Tableau,0).

Si quelqu'un à une idée elle sera la bienvenue.

Rustine

Salut!

Qu'est-ce que ce tableau contient au juste ? SetLength, normalement, ça ne libère que ce qu'occupe le tableau et non pas son contenu.

Merci!

-Slimjoe

[Philippe Gormand]

Bonsoir.

SetLength ne libère rien du tout mais redéfinit le nombre d'éléments du tableau.
Les indices du tableau (dynamique) sont de 0 à nombre déléments -1.

Donne nous ton code, nous pourons nous faire une idée plus précise. Par ce que là...

A+

[Bissada]

Bonjour,
J'ai exactement le même souci.

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
 
var
  tab1, tab2, tab3 : array of integer;
begin
setLength(tab1, list.count);
setLength(tab2, list.count);
setLength(tab3, list.count);
for i := 0 to list.count - 1 do
begin
  tab1[i] := 0;
  tab2[i] := 0;
  tab3[i] := 0;
end;
for i := 0 to list2.count - 1 do
begin
  //list2 contient des objets référencé dans list
  Id := list2[i]^.ObjetContenuDansList^.id;
  inc(tab1[Id]);
  case n of
    -1 : inc(tab2[Id]);
    0 : inc(tab3[Id]);
  end;
end;
//Les setLength se déroulent correctement
setLength(tab1,0);
setLength(tab3,0);
//sauf....
setLength(tab2,0);
//Pourquoi ???
end;

Si quelqu'un pouvait me donner une piste, ce serait super cool car je commence à desesperer...
Merci à tous !

[Cl@udius]

Bonjour

Personnellement j'utilise nil pour libérer mes tableaux. C'est l'une des méthodes préconisées par l'aide de Delphi.

Pour libérer un tableau dynamique, affectez nil à une variable qui référence le tableau ou transmettez la variable à Finalize ; ces deux méthodes libèrent le tableau dans la mesure où il n'y a pas d'autres références le désignant. Les tableaux dynamiques sont automatiquement libérés lorsque leur compte de références atteint zéro. Les tableaux dynamiques de longueur 0 ont la valeur nil.

Cependant l'erreur 'Pointeur invalide' peut être causée par une assignation de valeur au tableau en dehors de ses limites.

un petit exemple pour l'illustrer: (Effectué avec Delphi 7)

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
 
var
  Form1: TForm1;
  Tab1: array of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Byte;
begin
  // Tableau de 9 éléments, indicé de 0 à 8.
  SetLength(Tab1, 9); 
  // Affectation de valeurs de 0 à 9
  for i := 0 to 9 do
    Tab1[i] := i;   // Pas d'erreur d'exécution !!
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Tab1 := nil;  // Erreur d'exécution (Invalid Pointeur)
end;
 
end.

Voilà. Cela peut-être une des raisons.

@+ Claudius.

[anapurna]

salut

c'est d'ailleur pour eviter les debordement qu'il existe des fonction high et low
et que je preconisse toujours pour ce deplacer dans un tableau

@+ Phil