DELPHI 孩子兄弟表示法 (递归实现)

原创 2006年05月23日 11:43:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;
type
  pTNode=^TNode;
  TNode=class
  fChild:string;
  nSibling,id:string;
  firstChild,nextSibling:PTnode;
  Function GetFirstChild:PTNode;
  Function GetNextSibling:PTNode;
  end;
type
  TNodeArray=array of TNode;
type
  TTree=class
  current,root:PTNode;
  constructor Create(var arr:TNodeArray); overload;
  procedure InitTree(var arr:TNodeArray;p:PTNode);
  procedure  GetLeaves(p:PTNode);
  function  FindNode(p:PTNode;s:string):boolean;
end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Query: TADOQuery;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    procedure InitArray(var arr:TNodeArray);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function TNode.GetFirstChild:PTNode;
begin
  result:=firstchild;
end;

function TNode.GetNextSibling:PTNode;
begin
  result:=Nextsibling;
end;
function  TTree.FindNode(p:PTNode; s:string):boolean;
begin
  result:=false;
  if p<>nil then
  begin
    if p.id=s then
    begin
    current:=p;
    result:=true;
    exit;
    end;
    result:=FindNode(p.firstChild,s);
    if not result then
     result:=FindNode(p.nextSibling,s);
  end;
end;

procedure TTree.GetLeaves(p:PTNode);
begin
  if p<>nil then
  begin
  if p.firstChild=nil then form1.Memo1.Lines.Add(p.id);
  getLeaves(p.firstChild);
  getLeaves(p.nextSibling);
  end;
end;
procedure TForm1.InitArray(var arr:TNodeArray);
var
i:integer;
node:TNode;
begin
  Query.Open;
  SetLength(arr,Query.RecordCount);
  for i:=0 to Query.RecordCount-1 do
  begin
    node:=TNode.Create;
    node.id:=Query.Fields[0].AsString;
    node.fChild:=Query.Fields[1].AsString;
    node.nSibling:=Query.Fields[2].AsString;
    arr[i]:=node;
    Query.Next;
  end;
  Query.Close;
end;
constructor TTree.Create(var arr:TNodeArray);
var
  i:integer;
begin
  try
  for i:=0 to length(arr)-1 do
  begin
    if arr[i].id='0' then   root:=@arr[i];           //取根结点指针
  end;
  except
  showmessage('error');
  end;
end;

procedure TTree.InitTree(var arr:TNodeArray;p:PTNode);
var
  i:integer;
begin
  if p.fChild='none' then p.firstChild:=nil;
  if p.nSibling='none' then p.nextSibling:=nil;
  for   i:=0 to Length(arr)-1   do
  begin
    if p.fChild=arr[i].id then
    begin
       p.firstChild:=@arr[i];
       InitTree(arr,p.firstchild);
    end;
    if p.nsibling=arr[i].id then
    begin
      p.nextsibling:=@arr[i];
      InitTree(arr,p.nextsibling);
    end;
  end;
end;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

  i:integer;
  s1,s2:string;
begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  memo1.Lines.Add('本结点 左孩子 右兄弟');
  for i:=0 to length(arr)-1 do                   //test
  begin
    if arr[i].firstChild=nil then  s1:='n' else s1:=arr[i].firstchild.id;           //n表示'none'  ,列表应该和数据库中一致
    if arr[i].nextSibling=nil then s2:='n' else s2:=arr[i].nextsibling.id;
    memo1.Lines.Add(arr[i].id+'           '+s1+'            '+s2);
  end;
  tree.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  tree.getLeaves(tree.root);
  tree.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  tree:TTree;
  arr:TNodeArray;

begin
  initarray(arr);
  tree:=Ttree.Create(arr);
  tree.InitTree(arr,tree.root);
  memo1.Clear;
  if tree.FindNode(tree.root,Trim(edit1.text)) then
  memo1.Lines.Add(tree.current.id)
  else   memo1.Lines.Add('notfound');
  tree.Free;
end;

end.

相关文章推荐

孩子兄弟表示法实现树

因本人能力有限,参考了另一位大牛的代码,在此向他表示感谢! vs2008运行正确,如有误,请各位大牛指正! // CSTree.cpp : 定义控制台应用程序的入口点。 //孩子兄弟表示法实现树 ...

左孩子右兄弟树的递归与非递归、深度与广度遍历

http://blog.chinaunix.net/uid-21712186-id-1818095.html 左孩子右兄弟存储方式:      struct tree_node {   i...

求 以孩子-兄弟链表表示的树 的度、深度、叶结点和边

孩子兄弟表示法 任意一棵树,它的结点的第一个孩子如果存在就是唯一的,它的右兄弟如果存在也是唯一的。因此,我们设置两个指针,分别指向该结点的第一个孩子和此结点的右兄弟。 //其结构可定义为 typede...

使用C++ 和 孩子兄弟表示法实现树

VS2008可以运行通过。程序参考了许多大牛的总结,因能力有限,如有问题,请各位大牛指正。 程序采用孩子兄弟表示法存储树,实现了树的构造、遍历、深度、宽度、结点个数、叶子个数 以及 结点的层次、祖先、...

VC++ 树的孩子兄弟表示法

树的孩子兄弟表示法,又叫二叉树表示法、二叉链表表示法,它是以二叉链表作为存储结构。 这个主要是因为在工作中要将一个三级菜单处理成需要的格式。我会在汽车电子中将这个程序列出来。Tree.h struc...

poj 1192 最优连通子集 树的孩子兄弟表示法+简单树型dp

题意: poj的良心中文题,不赘述了。 分析: 难点是想到能把题中的最优单连通子集问题转化为求树的最大权子树问题,之后我用的是孩子兄弟表示,当然在建树的时候直接dp也行。树的最大权子树感觉是最简...
  • sepNINE
  • sepNINE
  • 2015年09月14日 10:35
  • 612

树的孩子兄弟表示法

/************************************************************************/ /* 树的孩子兄弟表示法 ...

任意有根树的左孩子右兄弟表示法存储

算法导论:10.4-4 对一个含n个结点的任意有根树,写出一个O(n)时间的过程,输出其所有关键字。 该树以左孩子或兄弟表示法存储。...
  • nrj
  • nrj
  • 2014年10月14日 22:32
  • 1221

普通二叉树转二叉链表(孩子兄弟表示法)

4.构造树T的孩子兄弟表示法。 求取树T的高度。 解: 孩子兄弟表示法:  1 2 3 4 5 6 public...

数据结构之通用树(孩子兄弟表示法)

孩子兄弟表示法模型,每个结点都有一个指向其第一个孩子的指针,每个结点都有一个指向其第一个右兄弟的指针 。...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI 孩子兄弟表示法 (递归实现)
举报原因:
原因补充:

(最多只允许输入30个字)