IT博客-貝殼兒的寶貝匣子-最新评论http://www.cnitblog.com/chessxu/CommentsRSS.aspx有一天,可愛的小狗狗問媽媽:幸福是什麼? 狗媽媽說:幸福其實就是你的尾巴. 小狗狗拼命咬自己的尾巴,但是它都咬不到 "媽媽,為什麼我抓不住我的幸福?" "傻孩子,抬起頭去走,幸福就會跟著你的!" zh-cnWed, 23 Nov 2005 23:56:22 GMTWed, 23 Nov 2005 23:56:22 GMTcnblogs把它編寫成了函數http://www.cnitblog.com/chessxu/archive/2005/11/14/4384.html#4436貝殼兒1貝殼兒1Mon, 14 Nov 2005 00:45:00 GMThttp://www.cnitblog.com/chessxu/archive/2005/11/14/4384.html#4436 ACxDBTreeList: TcxDBTreeList): string;
var
S:string;
aNode:TcxTreeListNode;
i:Integer;
begin
if ACxDBTreeList.Visible then
if ACxDBTreeList.FocusedNode.HasChildren then //只顯示最底層的
Exit;
aNode:=ACxDBTreeList.FocusedNode;
for i:=aNode.Level downto 0 do
begin
if i=ACxDBTreeList.FocusedNode.Level then
S:=aNode.Values[1]
else
S:=aNode.Values[1]+'->'+S;
aNode:=aNode.Parent;
Result:=S;
end;
end;

貝殼兒1 2005-11-14 08:45 发表评论
]]>