Discussion :

[sby64]

Bonsoir,

Je cherche de puis quelques jours la solution au problème suivant:

Le projet Project1.exe a déclenché la classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 00409318 dans le module 'Project1.exe'. Lecture de l'adresse 00000004'.

Le but de la manip est de récupérer le nom des fichier d'un dossier "Images" et de les copier sur un ListBox. Jusque la tout va bien. Mais lorsque je clique sur le bouton qui permet d'affecter .jpg aux Timages j'ai donc le message d'erreur précédent.

Voilà les 2 parties de mon 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
25
26
27
28
29
procedure TForm1.FormCreate(Sender: TObject);
 
var
n : Integer;
F: TSearchRec;
 
begin
 
n:=FindFirst('C:\Users\Michel\Desktop\MEMORY\images\*.jpg',faAnyfile,F);
 
ListBox1.Items.Add(F.FindData.cFileName);
 
repeat
 
  begin
 
    n:=FindNext(F);
    if n=0 then
 
      begin
        ListBox1.Items.Add(F.FindData.cFileName);
      end;
 
  end;
until n<>0 ;
 
FindClose(F);
 
end;

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
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,j : Integer;
tab:TMyArray;
 
 
begin
 
j:=1;
k := 1;
  while k<7 do
    begin
      tab[k]:= j;
      tab[k+1]:= j;
      inc(j,1);
      inc(k,1);
    end;
MixArray(tab);
 
for i := 1 to 6 do
 
begin
ListBox2.Items.Strings[i-1]:= IntToStr(Tab[i]);
end;
 
Image1.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\'+ListBox1.Items.Strings[tab[1]-1]);
Panel1.Visible := true;
Panel1.Caption := ListBox1.Items.Strings[tab[1]-1];
 
Image2.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\' + ListBox1.Items.Strings[tab[2]-1]);
Panel2.Visible := true;
Panel2.Caption := ListBox1.Items.Strings[tab[2]-1];
 
Image3.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\' + ListBox1.Items.Strings[tab[3]-1]);
Panel3.Visible := true;
Panel3.Caption := ListBox1.Items.Strings[tab[3]-1];
 
Image4.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\' + ListBox1.Items.Strings[tab[4]-1]);
Panel4.Visible := true;
Panel4.Caption := ListBox1.Items.Strings[tab[4]-1];
 
Image5.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\' + ListBox1.Items.Strings[tab[5]-1]);
Panel5.Visible := true;
Panel5.Caption := ListBox1.Items.Strings[tab[5]-1];
 
Image6.Picture.LoadFromFile('C:\Users\Michel\Desktop\MEMORY\images\' + ListBox1.Items.Strings[tab[6]-1]);
Panel6.Visible := true;
Panel6.Caption := ListBox1.Items.Strings[tab[6]-1];
Button1.Visible := false;
 
end;

J'ai fait du pas à pas et l'erreur apparaît tout à la fin de la procédure "Button1Click".

Merci de votre aide,

Cordialement.

[tourlourou]

Est-ce que tab[6]-1 n’excède pas ListBox1.Items.Count ?

Le code du FindFirst ne teste pas si n<>0 et part du principe qu'on en a trouvé une (photo) : il vaudrait mieux remplacer le repeat..until n<>0 par un while n=0 do begin..end.

La procédure MixArray ne pourrait-elle être fautive ?

[ShaiLeTroll]

Faudrait vérifier n résultat de FindFirst, qui DOIT être à zéro !
Sinon F vaut probablement nil (0000 0004 cela doit être le FindHandle)

D'ailleurs, il ne faut pas appeler tout de suite FindNext sinon tu loupes le 1er fichier.

FindClose ne doit être appeler que si FindFirst a renvoyé Zéro !

[sby64]

Bonsoir,

Tout d'abord merci pour vos réponses rapides.
Je ne pense pas que le MixArray me donne l'erreur. Car dans un premier temps j'avais mis le nom des fichiers dans un .text et je les recopiais dans le ListBox1; et je n'avais pas l'erreur.

L'erreur est survenue que lorsque j'ai intégré le FindFirst / FindNext / FindClose.

Par contre comme je le précise dans mon premier message, l'erreur s'affiche juste après le END de la procédure du Button1Click.

Le seul lien entre les 2 procédures est la ListBox1.

J'ai suivi vos conseils, à savoir vérifier le "n" avant le FindNext et le FindClose et le résultat est le même.

Merci, je continue de chercher...

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
 
n:=FindFirst('C:\Users\Michel\Desktop\MEMORY\images\*.jpg',faAnyfile,F);
 
ListBox1.Items.Add(F.FindData.cFileName);
 
 
if n=0 then
begin
 
while n= 0 do
 
  begin
 
    n:=FindNext(F);
    if n=0 then
 
      begin
        ListBox1.Items.Add(F.FindData.cFileName);
       end;
 
  end;
 
end;
if n=0 then
 
FindClose(F);
 
end;

[sby64]

Bonsoir tout le monde...

Tout d'abord merci d'avoir répondu à ma discussion.

Après plusieurs recherches (isolé des parties de programme etc...) j'ai enfin trouvé le problème.

Dans le bout de programme:

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
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,j : Integer;
tab:TMyArray;
 
 
begin
 
j:=1;
k := 1;
  while k<7 do
    begin
      tab[k]:= j;
      tab[k+1]:= j;
      inc(j,1);
      inc(k,1);
    end;
MixArray(tab);

Il faut mettre "While k<6"

Mais en même temps pour remplir le tableau autant faire:

Code :

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

1
2
3
for j := 1 to 6 do
tab[j] := j;
MixArray(tab);

Encore merci à tous et à bientôt...

[Linkin]

Pour les bornes du tableau tu peux utiliser Low(TMyArray) et High(TMyArray), cela évite de changer ton code à plusieurs endroits (ou éventuellement utiliser des constantes).

[sby64]

Oui c'est vrai tu as raison. Merci du conseil.