一个递归小函数,用于组合树控件的文本
一个递归小函数,用于组合树控件的文本
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;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
JPA不识别MySQL的枚举类型
原創
2024-04-02 01:07:56
AppBuilder低代码体验:构建雅思大作文组件
Ai technology 前言 AppBuilder上線了低代碼製作組件功能,可以通過工作流的方式構建自定義組件,完成簡單Agent無法完成的複雜功能,使得生成的文本更加定製化,
原創
2024-05-16 00:15:54
有点意思的 Java 递归调用
原創
2024-05-13 02:41:48
基于Redis实现基本抢红包算法
原創
2024-04-17 11:18:19
Java中拼接字符串方式(+、StringBuilder/StringBuffer)分析
原創
2024-04-09 21:31:20
Java中String 、StringBuilder 、StringBuffer 的区别
原創
2024-04-08 09:31:31
go-Channel
原創
2024-03-24 00:10:06
golang调用python实战
雲棲號資訊小編
2020-09-03 11:13:56
震惊!Redis 的字符串居然是这样实现的…
雲棲號資訊小哥
2020-08-06 12:10:50
前端面试题 - 说一下原型和原型链?
原創
2024-04-24 23:51:10
Oracle数据库中的索引类型分类
原創
2024-04-23 21:54:53
从用户中来,到用户中去:IPD集成产品开发之FFAB模型,让你的产品供不应求!
原創
2024-04-13 00:50:45
数据结构笔记浅记(三)空间复杂度
原創
2024-03-23 00:43:15