IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Actualisation d'une FileListBox [Lazarus]


Sujet :

Lazarus Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    retraité
    Inscrit en
    Août 2017
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Août 2017
    Messages : 30
    Par défaut Actualisation d'une FileListBox
    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>...'.

    Nom : Capture.JPG
Affichages : 533
Taille : 21,2 Ko

    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.

  2. #2
    Expert confirmé
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    11 132
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 11 132
    Par défaut
    Citation Envoyé par bern59 Voir le message
    FileListBox1.Refresh;
    Le refresh sert à rafraîchir l'affichage de l'objet, mais pas du tout son contenu !

    J'ai testé ça, qui a l'air correct :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      if sdd.Execute then begin
    //    nb:=0; //nombre d'item // inutile
    //     scr := SelectDirectoryDialog1.FileName; // inutile
        flb.Clear; // ! \\
        flb.Directory := sdd.FileName;
    //     FileListBox1.Refresh; // inutile
    //     nb := flb.Count; // inutile
        Caption := inttostr(flb.Count);
      end;
    end;

  3. #3
    Membre averti
    Homme Profil pro
    retraité
    Inscrit en
    Août 2017
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Août 2017
    Messages : 30
    Par défaut rafraichissement
    Désolé,
    J'ai testé, j'ai toujours le même problème.

  4. #4
    Expert confirmé
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    11 132
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 11 132
    Par défaut
    Citation Envoyé par bern59 Voir le message
    Désolé,
    J'ai testé, j'ai toujours le même problème.
    Alors sa source est ailleurs.

  5. #5
    Membre émérite

    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2012
    Messages
    1 035
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : Juin 2012
    Messages : 1 035
    Par défaut
    S'il y a une espace dans le nom du répertoire Retouches Faites, ça pourrait venir de là.

  6. #6
    Rédacteur

    Avatar de naute
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2009
    Messages
    708
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Mars 2009
    Messages : 708
    Par défaut
    Bonjour .

    Citation Envoyé par mm_71 Voir le message
    Si il y-a un espace dans le nom du répertoire Retouches Faites ça pourrait venir de là.
    Non, ce n'est pas ça. TFileListBox accepte les espaces dans les noms de dossier, du moins chez moi. Le problème est ailleurs.

    Amicalement,
    naute.

  7. #7
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 241
    Par défaut
    hello,
    Citation Envoyé par bern59 Voir le message
    Quand je veux changer de répertoire, je reçois, par moment, un message : 'Unable to open file <nom du répertoire>...'.
    par moment --> C'est à dire ? de façon aléatoire ? toujours avec les mêmes répertoires ?
    Ami calmant, J.P

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. actualisation d'une base de données automatiquement
    Par klimero dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 6
    Dernier message: 19/01/2006, 18h07
  2. Site qui vérifie les actualisations d'une page web
    Par LFC dans le forum Autres langages pour le Web
    Réponses: 4
    Dernier message: 01/12/2005, 18h47
  3. Actualisation d'une barre d'outil
    Par zoom61 dans le forum IHM
    Réponses: 2
    Dernier message: 07/03/2005, 10h28
  4. [MFC] Probleme d'actualisation d'une listbox
    Par Robleplongeur dans le forum MFC
    Réponses: 5
    Dernier message: 13/05/2004, 14h15
  5. Actualisation d'une liste "dépendante".
    Par Trilby dans le forum ASP
    Réponses: 6
    Dernier message: 19/11/2003, 18h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo