Remplissage récursif d'un Treeview [Résolu]

Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Dernière intervention
18 décembre 2014
- - Dernière réponse : Oniria
Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Dernière intervention
18 décembre 2014
- 9 mars 2008 à 11:55
Bonjour,

Pour finir un programme en delphi, j'aimerais savoir : Existe-t-il une fonction équivalente à GetLastSubNode de Lazarus.

En effet, cette commande permet de donner le dernier TTreeNode Ajouté à un TTreenode.

C'est pour faire le remplissage par un systéme récurssif d'un Treeview pour parcourir un répertoire à partir d'un point de départ et remplir ce Treeview du nom des images et des sous répertoires de ce point de départ.

Voila le code de l'unité qui me pose probléme :

procedure TFDetails.Scan( NomDossier : string );
var
 hFound : Integer;
 sFileData : TSearchRec;
 tree,tree1 : TTreeNode;
 texte : string;
begin
  tree:=FDetails.TreeView1.Items.GetLastSubNode;// On récupére le dernier Noeud ajouté dans le Treeview. C'est ca que je ne sais pas faire.
  if ( FindFirst( NomDossier + '*.*', faAnyFile, sFileData) = 0 ) then
    begin
      repeat
        if ( ( sFileData.Name <> '.' ) and ( sFileData.Name <> '..' ) ) then
           begin
             if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then
                begin
                  // Ici Traitement Fichier( sFileData, NomDossier )
                  texte:=uppercase(ExtractFileExt(sFileData.Name));
                  if (texte='.BMP')
                     or (texte='.JPG')
                     or (texte='.JPEG') then
                     begin
                       tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
                       tree1.ImageIndex:=1;
                     end;
                end else
                begin
                  tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
                  tree1.ImageIndex:=0;
                  Scan( NomDossier +sFileData.Name+ '\' ); // Recursivité
                end;
           end;
      until ( FindNext( sFileData ) <> 0 );
    end;
  FindClose( sFileData );
end;

procedure TFDetails.init(nom_Dossier: string);
var tree : TTreeNode;
    texte : string;
begin
  FDetails.GroupBox2.Visible:=false;
  FDetails.Splitter1.Visible:=false;
  FDetails.B_Sauver.Visible:=false;
  FDetails.B_Commentaire.Visible:=true;
  Fdetails.Caption:=Nom_Dossier;
  FDetails.TreeView1.Items.Clear;
  Fdetails.Scan(nom_dossier);  // Remplissage de l'arbre
  FDetails.GroupBox1.Visible:=True;
  if FDetails.TreeView1.Items.Count=1 then
     begin
       // il n'y a qu'un document
       Tree:=Fdetails.TreeView1.Items.GetFirstNode;
       texte:=uppercase(ExtractFileExt(Tree.Text));
       if (texte='.BMP')
          or (texte='.JPG')
          or (texte='.JPEG') then
          begin
            FDetails.GroupBox1.Visible:=False;
            FDetails.TreeView1.Selected:=tree;
            FDetails.TreeView1Click(nil);
          end;// interrogation de présence d'image
     end;
end;                  

Il ne me reste que ce probléme à résoudre pour pouvoir finir mon soft de cartographie. Le soft fonctionne bien sous Lazarus, mais j'aimerais le faire fonctionner sous delphi car j'aimerais faire profiter la communauté des fonctions qu'il intégre.

Et la, ca fait vraiment un long moment que j'essaye de comprendre comment Lazarus fait pour réaliser cette fonction mais je ne comprend pas.

En tout cas, merci aux personnes qui auront l'amabilité de me répondre...

Oniria
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Dernière intervention
18 décembre 2014
3
Merci
Ca y est, j'ai trouvé une petite source sur le sujet et j'ai trouvé, c'est simple, il suffisait de mettre dans la function scan, le TTreeNode de référence au lieu de chercher une fonction qui le donne. Ca marche niquel, je modifie quelques petits points et je le poste.

Pour ceux que ca interresse, le code est devenu :

procedure TFDetails.Scan( NomDossier : string; tree : TTreeNode );
var
 hFound : Integer;
 sFileData : TSearchRec;
 tree1 : TTreeNode;
 texte : string;
begin
  //tree:=FDetails.TreeView1.Items.GetLastSubNode;// Supprimé car cette fonction n'hexiste pas sous delphi
  if ( FindFirst( NomDossier + '*.*', faAnyFile, sFileData) = 0 ) then
    begin
      repeat
        if ( ( sFileData.Name <> '.' ) and ( sFileData.Name <> '..' ) ) then
           begin
             if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then
                begin
                  // Ici Traitement Fichier( sFileData, NomDossier )
                  texte:=uppercase(ExtractFileExt(sFileData.Name));
                  if (texte='.BMP')
                     or (texte='.JPG')
                     or (texte='.JPEG') then
                     begin
                       tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
                       tree1.ImageIndex:=1;
                     end;
                end else
                begin
                  tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
                  tree1.ImageIndex:=0;
                  Scan( NomDossier +sFileData.Name+ '\' ,Tree1); // Recursivité, On transmet le noeud qu'il va falloir remplir (un répertoire)
                end;
           end;
      until ( FindNext( sFileData ) <> 0 );
    end;
  FindClose( sFileData );
end;

procedure TFDetails.init(nom_Dossier: string);
var tree : TTreeNode;
    texte : string;
begin
  FDetails.GroupBox2.Visible:=false;
  FDetails.Splitter1.Visible:=false;
  FDetails.B_Sauver.Visible:=false;
  FDetails.B_Commentaire.Visible:=true;
  Fdetails.Caption:=Nom_Dossier;
  FDetails.TreeView1.Items.Clear;
  Fdetails.Scan(nom_dossier,nil);  // Remplissage de l'arbre, la référence est nil car on doit démarrer au début de l'arbre
  FDetails.GroupBox1.Visible:=True;
  if FDetails.TreeView1.Items.Count=1 then
     begin
       // il n'y a qu'un document
       Tree:=Fdetails.TreeView1.Items.GetFirstNode;
       texte:=uppercase(ExtractFileExt(Tree.Text));
       if (texte='.BMP')
          or (texte='.JPG')
          or (texte='.JPEG') then
          begin
            FDetails.GroupBox1.Visible:=False;
            FDetails.TreeView1.Selected:=tree;
            FDetails.TreeView1Click(nil);
          end;// interrogation de présence d'image
     end;
end;                  

Comme quoi des fois, on cherche compliqué alors que la solution est sous nos yeux.

Oniria

Merci Oniria 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 103 internautes ce mois-ci

Commenter la réponse de Oniria

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.