Обход деревьев

[NewNub]

Здравствуйте. возникла проблема по обходам бинарного дерева. Посмотрите пожалуйста.

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
 PNode=^TNode;

  TNode=record
    nKey:Integer;
    nCount:integer;
    pLeft:pNode;
    pRight:pNode;
  end;
    TTree=class
  private
  public
    fTree:pNode;
     M:integer;
    procedure Search(x:integer;var node:PNode);
    constructor Create;

  end;
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button5: TButton;
    Button6: TButton;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Vyvod(node:PNode;item:TTreeNode);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private declarations }
  public
  N:integer;

  Arr :array[1..20] of Integer;

  end;



var
  Form1: TForm1;
  t:TTree;
  node:pNode;

implementation
constructor TTree.Create;
begin
  fTree:=nil;
end;
procedure TTree.Search(x: Integer; var node: PNode);
//  Ïîèñê âåðøèíû ñ êëþ÷îì x â äåðåâå ñî âñòàâêîé
//             (ðåêóðñèâíûé àëãîðèòì).
begin
  if node=nil  then
  // Âåðøèíû â äåðåâå íåò; âêëþ÷èòü åå.
  begin
    node:=new(PNode);
    with node^ do begin
      nKey:=x;
      nCount:=1;
      pLeft:=nil;
      pRight:=nil;
    end;
  end
  else
    if x<node^.nKey then
      Search(x,node^.pLeft)
    else
      if x>node^.nKey then
        Search(x,node^.pRight)
      else
        inc(node^.nCount);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:integer;
  N:integer;
begin
button2.Visible:=true;
label5.Visible:=true;
Label4.Caption:='';
 randomize;
TreeView1.Items.Clear;
  t:=TTree.Create;
  N:=strtoint(label3.Caption);
   for i := 1 to N+1 do
   begin
    arr[i]:=random (100);
    Label4.Caption:=Label4.Caption+' '+IntToStr(arr[i]);
    end;

  for I := 1 to N do
    t.Search(arr[i],t.fTree);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  item:TTreeNode;
begin
  item:=nil;
  Vyvod(t.fTree,item);
end;
procedure TForm1.Vyvod(node:PNode;item:TTreeNode);
var
  tmpItem:TTreeNode;
begin
  if node <> nil then begin
    tmpItem:=TreeView1.Items.AddChild(item,inttostr(node^.nKey));
    vyvod(node^.pLeft,tmpItem);
    vyvod(node^.pRight,tmpItem);
  end;
end;



procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Visible:=true;
button4.Visible:=true;
label1.Visible:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
N:=strtoint(edit1.text);
label3.Caption:=IntToStr(N);
label2.Visible:=true;
label3.Visible:=true;
button1.Visible:=true;
end;


procedure TForm1.Button5Click(Sender: TObject);
var
  i:integer;
  M:integer;
begin
button2.Visible:=true;
label5.Visible:=true;
Label4.Caption:='';
 randomize;
TreeView1.Items.Clear;
  t:=TTree.Create;
  M:= random(20);
  label3.Caption:=IntToStr(M);
  label3.Visible:=true;
label2.Visible:=true;
   for i := 1 to M+1 do
   begin
    arr[i]:=random (100);
    Label4.Caption:=Label4.Caption+' '+IntToStr(arr[i]);
    end;

  for I := 1 to N do
    t.Search(arr[i],t.fTree);
end;

procedure preorder(p:PNode; g:integer); собственно вот тут то и ошибка!!!!!
begin p^.nCount:= g;
 if p^.pLeft<>nil then preorder(p^.pleft,g+1);
 if p^.pright<>nil then preorder(p^.pright,g+1);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
preorder(node,1);
end;

end. 


[RinatV]

может надо делать проверку как и везде делалось на случай неправильной ссылки

procedure preorder(p:PNode; g:integer); собственно вот тут то и ошибка!!!!!
begin 
 if p=nil then exit;
 p^.nCount:= g;
 if p^.pLeft<>nil then preorder(p^.pleft,g+1);
 if p^.pright<>nil then preorder(p^.pright,g+1);
end;

[NewNub]

Сообщение от RinatV

может надо делать проверку как и везде делалось на случай неправильной ссылки

procedure preorder(p:PNode; g:integer); собственно вот тут то и ошибка!!!!!
begin 
 if p=nil then exit;
 p^.nCount:= g;
 if p^.pLeft<>nil then preorder(p^.pleft,g+1);
 if p^.pright<>nil then preorder(p^.pright,g+1);
end;

а не подскажешь как это реализовать?