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 :
Qui connaît ce problème ?
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;
Merci.
Partager