当前位置:首页 » 编程博文
开发技术指南» 文章正文
    引言: 在VCL中包含有一个TListNT-FAMILY: 宋体; ms
 

 

 ·随机数    »显示摘要«
    摘要: 生成 0 - 9 的随机数 randomize myvalue = int((9 * rnd) + 0) ......
    摘要:查询中使用的函数 在查询语句中,不仅可查询表中列的值而且可以使用内部函数查询数据库中不同类型的信息。可以在select列表,where子句和任何允许表达式的地方使用内部函数。这些函数都是t-sql对sql的扩展。adaptive server提供的内部函数可以分成以下几类: l 系统函数。返回数据库中的信息; l 字符串函数。用于处理字符串或字符串表达式; l text函数。用于处理te......


自己编写树(Tree)的封装类
在vcl中包含有一个tlist类,几乎可以实现<链表>所有功能,delphi的工程师真是伟大.但是在实际应用中需要ttree类,来实现<树>的功能,我写了两个类tyutree,tyunode.可以方便实现,树创建,结点增删.移动功能.请大家指教.

procedure test(); 【程序编程相关:自己编译(升级)PHP5中的gd库中的j

代码实例: 【推荐阅读:智能客户端开发中心为您提供了大量的智能客

 yutree: tyutree; 【扩展信息:病毒作者意识超前 64位Windows的

var

  node: tyunode;

begin  

  //第1步:创建树.增加第一个结点0

yutree := tyutree.create;

node := yutree.add(nil);//nil,表示增加根结点

node.data := pointer(0);

 

 

 

 

//第2步:在结点0下增加子结点1

node := yutree.addchild(node);node指向结点0

node.data := pointer(1);

 

 

 

 

 

 

//第3步:在结点1下增加子结点2

node := yutree.addchild(node);

node.data := pointer(2);

 

 

 

 

 

 

//第4步:切换到结点2的父结点1

node := node.getparent;

 

 

 

 

 

 

 

 

//第5步:在结点1下增加子结点3,并作为第1个子结点

node := yutree.addchildfirst(node);

node.data := pointer(3);

 

 

 

 

 

 

//第6步:切换到结点3的父结点1

node := node.getparent;

 

 

 

 

 

 

//第7步:增加结点1下子结点4,作为最后一个子结点

node := yutree.addchild (node);

node.data := pointer(4);

 

 

 

 

 

//第8步:增加结点4的兄弟结点5,作为第一个兄弟结点

node := yutree.addfirst(node);

node.data := pointer(5);

 

 

 

 

 

 

//t第9步:切换到结点5的下一个兄弟结点3

node := node.getnextbrother;

 

 

 

 

 

 

 

 

//第10步:在结点3下插入一个兄弟结点6

node := yutree.add(node);

node.data := pointer(6 );

 

 

 

 

 

 

//第11步:删除结点6

node.delete; //或yutree.delete(node);

 

 

 

 

 

//其它用法

  //结点2.getnextbrother() = 结点4        返回该结点的下一个兄弟

  //结点2.getprevbrother() = 结点3      返回该结点的上一个兄弟


...   下一页
    摘要:回创新者在管理003中的反馈说,不要太相信别人,可以完全相信的人只有自己。其实一个人总可以去相信或不相信别人,成片的大树收集、整理、编写的这些都是故事,对于所有的人都没有要求,看过一笑罢了。这216个小故事(我力争完成),没有哪个是什么金玉良言,创新者的想法或许是说不要把希望寄托在别人身上。如果这样的话,我也是赞同的,有故事为证:[故事]春秋战国时代,一位父亲和他的儿子出征打战。父亲已做了将军,儿......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE