Discussion :

[bern59]

Bonjour,

Je construis un programme qui m'affiche les images d'un répertoire à partir de la liste des fichiers affichés dans un FileListBox.
Quand je veux changer de réperoire, je reçois, par moments, un message : 'Unable to open file <nom du répertoire>...'.



Le compte d'items est faux, il garde le nombre du répertoire précédent.
Ce n'est pas bloquant mais gênant.

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.BtnRepClick(Sender: TObject);
begin
  if SelectDirectoryDialog1.Execute() then
     begin
         nb:=0; //nombre d'item
         scr := SelectDirectoryDialog1.FileName;
         FileListBox1.Directory:=scr;
         FileListBox1.Refresh;
         nb := FileListBox1.Count;
         edit1.Text := inttostr(nb);
     end;
end;

Qui connaît ce problème ?

Merci.