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