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