一个递归小函数,用于组合树控件的文本
2007-06-05 21:45
399 查看
一个递归小函数,用于组合树控件的文本
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;
相关文章推荐
- 封装一个Win32弹出提示框的函数(用于STATIC等控件显示Tooltip)
- 封装一个Win32弹出提示框的函数(用于Window控件 显示Tooltip)
- 编写一个函数reverse_string(char * string)(递归实现)
- PHP implode() 函数是个将数组组合成一个字符串
- 例题:函数递归。去卖羊,每过一个村子卖掉之前数的二分之一零一只,过了7个村之后还剩2只,问最初有多少羊。
- C# 001 --- 正确的删除一个控件的事件函数 --- 解决错误: “A”不包含“B”的定义,并且找不到可接受类型为“A”的第一个参数的扩展方法“B”(是否缺少 using 指令或程序集引用?)
- 3.1题目: 利用递归方法实现一个函数,该函数能够实现n的阶乘,即 n! = n*(n-1)*…*3*2*1;
- MFC小程序003------MFC使用WebBrowser组件,在对话框中创建滚动视图,动态创建一个静态文本控件并设置鼠标单击的消息响应
- 编写一个用于在字符串中查找某字符的函数。
- javascript 一个自定义长度的文本自动换行的函数
- Qt5-控件-QRadioButton-单选按钮-用于从多个选项中选取一个-单选神器
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 【C语言】【面试题】【笔试题】编写一个函数实现n^k,使用递归实现
- 一个简单的组合控件示例
- 【c语言】 编写一个函数reverse_string(char * string)(递归实现)
- 递归的使用:编写一个函数,输入n为偶数时,调用函数求1/2+1/4+...+1/n,当输入n为奇数时,调用函数1/1+1/3+...+1/n。将输出结果保留到至少8个小数点。
- 用函数和递归求n个三角形能把一个平面分成最多多少块
- off() 方法 与 unbind() 方法移除绑定事件的处理程序。one()函数用于为每个匹配元素的一个或多个事件绑定一次性事件处理函数
- 使用'VRM_SET_VALUES'函数在selection屏幕上建一个Combobox控件示例
- 编写一个函数实现n^k,使用递归实现