Delphi: Двоичное упорядоченное дерево.

[Sianessa]

Кто-нибудь, помогите пожалуйста написать операции с деревом моим:

- проверить, дерево пусто/не пусто;
- добавить элемент в дерево;
- удалить элемент из дерева;
- найти элемент с заданным значением;
- опустошить дерево.

[Sianessa]

Ну подскажите кто-нибудь хотя бы одну операцию...

[Z1000000]

- проверить, дерево пусто/не пусто;
- добавить элемент в дерево;
- удалить элемент из дерева;
- найти элемент с заданным значением;
- опустошить дерево.

Да чего тут подсказывать.
1. Если корень = nil дерево пустое
2. Добавление элемента у тебя уже есть - функция Search
4. Поиск элемента она же

Надо сделать только удаление элемента и опустошение.

[Sianessa]

Z1000000, хммм, и правда, спасибо что надоумили...
Вот определение "пустоты" уже сделала...

procedure TForm1.Button3Click(Sender: TObject);
var node: PNode;

begin
  if node=nil  then
ShowMessage('Дерево пустое')
else
ShowMessage('Дерево не пустое');
end;

Сижу сейчас над добавлением элемента...

[Sianessa]

Кто-нибудь, помогите пожалуйста сделать поиск элемента, удаление элемента и опустошение дерева!!! Я уже не знаю как...

Я написала цикл для поиска, но как к дереву привязать - не знаю :

procedure TForm1.Button5Click(Sender: TObject);
var x,i:integer;
t:array of integer;

begin
SetLength(t, 640);
x:=StrToInt(Edit1.Text);
For i:=0 to 640 do
begin
if t[i]=x then
ShowMessage('Дерево пустое');
end;
end;
end.

[Sianessa]

Помогите хоть кто-нибудь(((

[Z1000000]

// Опустошить дерево
procedure KillTree ( var node : PNode );
begin
if node^.pLeft <> nil then
 begin
 KillTree(node^.pLeft);
 end;
if node^.pRight <> nil then
 begin
 KillTree(node^.pRight);
 end;
dispose(node);
end;