本文介绍了一个简单的递归函数，该函数用于遍历树控件节点并组合成带有层级关系的文本字符串。当节点有父节点时，会在其文本前加上父节点的文本及连接符，以此类推直至根节点。
一个递归小函数，用于组合树控件的文本
function GetText(node : TTreeNode) : string;
var
i,iLeve : integer;
s,sp : string;
begin
if Assigned(node) then
begin
s := node.text;
if Assigned(node.Parent) then
s := GetText(node.Parent)+'->'+s;
end;
Result := s;
end;
function GetText(node : TTreeNode) : string;
var
i,iLeve : integer;
s,sp : string;
begin
if Assigned(node) then
begin
s := node.text;
if Assigned(node.Parent) then
s := GetText(node.Parent)+'->'+s;
end;
Result := s;
end;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
