Obtenir le chemin complet d'un TTreeNode



Pour obtenir le chemin complet d'un TTreeNode dans un TTreeView, c'est à dire Element1\Element2\...\ElementN, il suffit de déclarer une fonction du type :


Fonction de Récupération du chemin

function GetTreeNodePath(N: TTreeNode): string;
begin
  if not Assigned(N) then Result := ''
  else if N.Level = 0 then Result := N.Text
  else Result := GetTreeNodePath(N.Parent) + '\' + N.Text;
end;


3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs