Question

一般情况下，编写一个模块以使用二叉树。作为价值观，我们有了这个词。模块的本质，在字典中搜索单词。所以，问题是：如果你反复使用字典中的单词调用函数搜索 - 它会发现一切正常。输入几次错误的单词，然后再从字典中输入一个单词。将给出而不是True - ＆gt;假

在我看来，用每个递归迭代_search覆盖了指向父对象的原始指针。在后来的分支中，只是不是想要的单词。

问题：如何保留基本变量词典？我的意思是它的指针。将变量覆盖到另一个变量没有帮助。它写在同一个地址，所有这里;（

抱歉英语不好。

用法：

uses MrBinTree;

var binTree := new _binTree;
binTree.search('test');

模块：

unit MrBinTree;

interface
  uses General;
type
  PDictionary = ^_Dictionary; { Указатель на узел }
  _Dictionary = record { Тип где будем хранить информацию }
    data: string;
    left, right: PDictionary; { ссылки на дочерние левые и правые элементы }
  end;

  _binTree = class
  private
    Dictionary, {Адрес корня дерева}
    owner: PDictionary; {Владелец результата поиска}
    word: integer; {Искомое слово в символьном исполнении}

    procedure add(var Dictionary: PDictionary; word: string);
    procedure loadDictionary;
    function _search(var Dictionary: PDictionary; word: string) : PDictionary;
    procedure deleteTree(var Tree1: PDictionary );
  public
    constructor Create;
    function search(var word: string) : boolean;
  end;
implementation
  constructor _binTree.Create;
  begin;
    self.loadDictionary;
  end;

  procedure _binTree.deleteTree(var Tree1: PDictionary );
  begin
  if Tree1 <> nil then
    begin
      self.DeleteTree (Tree1^.LEFT);
      self.DeleteTree (Tree1^.RIGHT);
      Dispose(Tree1);
    end;
  end;

  procedure _binTree.loadDictionary;
  var
    i: integer;
    word: string;
  begin
    AssignFile(input, 'dictionary.txt'); {Откроем поток}
    Reset(input); { Откроем файл }
    while not EOF(input) do { Итерируем до того,пока не дойдем до конечной строки }
    begin
     ReadLn(input, word); { Читаем строку }
     self.add(self.Dictionary, word);
    end;
    CloseFile(input); { Закроем поток }
  end;

  {Добавление набора символов в дерево}
  procedure _binTree.add(var Dictionary: PDictionary; word: string);
  begin
    {Для начала проверим наличие корней в дереве, если нету,то создадим}
    if (Dictionary = nil) then
    begin
      New(Dictionary); {Выделим памяти}
      Dictionary^.data := word; {Добавим наши символы}
      Dictionary^.left := nil; {Обнулим указатели}
      Dictionary^.right:= nil; {Обнулим указатели}
      exit; {Готово, процедуру завершим}
    end;

    {Есть корни в дереве, проверим вводимые символы на размерность, если больше - правое, меньше - левое}
    if ( word < Dictionary^.data ) then
      self.add(Dictionary^.left, word) {если коды символов меньше корня,добавим с левое поддерево}
    else
      self.add(Dictionary^.right, word); {если коды символов больше корня,добавим с правое поддерево}
  end;

  { Абстракция для конечного вызова функции поиска }
  function _binTree.search(var word: string) : boolean;
  var
    reserveDictionary: PDictionary; {Резервная переменная ссылающеяся на адрес дерева}
  begin
    reserveDictionary := self._search(self.Dictionary, word);
    if (reserveDictionary <> nil) then
      Result := true
    else
      Result := false;
  end;

  { Функция поиска по бинарному дереву }
  function _binTree._search(var Dictionary: PDictionary; word: string) : PDictionary;
  var
    save: PDictionary := nil;
  begin
    {Для начала проверим наличие корней в дереве, если нету,то выведем нил}
    if (Dictionary = nil) then
    begin
      Result := nil; { Выводим нил, так как дерево пустое }
      exit;
    end;

    { Если равенство с корнем дерева }
    if (Dictionary^.data = word) then
    begin
      save := Dictionary; { Запишем его адрес }
    end else begin
      if (Dictionary^.data > word) then { Если введенный элемент меньше корня }
        save := self._search(Dictionary^.left, word) { ищем в левом поддереве }
      else
        save := self._search(Dictionary^.right, word); { ищем в правом поддереве }
    end;

    Result := save;
  end;
end.

Answer 1

如何实现在二叉树中搜索的示例：

{***************************************************************************************}
function TALBaseAVLBinaryTree.InternalFindNode(idVal: pointer): TALBaseAVLBinaryTreeNode;
var N1: TALBaseAVLBinaryTreeNode;
    CmpRes: Integer;
begin
  N1 := FHead;
  while Assigned(N1) do begin
    CmpRes := CompareNode(IdVal, N1);
    if CmpRes = 0 then begin
      Result := N1;
      Exit;
    end
    else N1 := N1.ChildNodes[CmpRes > 0];
  end;

  Result := nil;
end;

如何重置嵌套二叉树的指针？

1 个答案: