Классы Delphi

[Artem78]

Есть определение класса

TNode=class
private
  FValue:string;
  FLeft,FRight:TNode;
public
  property Left: TNode read FLeft write FLeft;
  property Right: TNode read FRight write FRight;
  property Value: string read FValue write FValue;
end;

Есть определение другого класса

//класс "Дерево"
  TTree = class
  private
   Froot: TNode;
  public
    //Процедура добавления узла в дерево
    Procedure Add(var root: TNode; s:string);
    //свойство для получения значения Froot
    property Value: TNode read Froot write Froot;
  end;{TTree}

И вот при вызове метода Add класса TTree выскакивает следующая ошибка: constant object cannot be passed as var parameter
Как решить данную проблему?

[Аватар]

А var зачем?

[Pavia]

Из TTree убрать var
В TNode добавить метод Assign.

[Artem78]

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

Из TTree убрать var
В TNode добавить метод Assign.

Не совсем понял, как это поможет.

[Artem78]

Сообщение от Аватар

А var зачем?

В методе Add рекурсия, рекурсивно добавляется элемент.

[Artem78]

Код метода:

//метод добавления элемента в дерево
Procedure TTree.Add(Var root: TNode; s:string);
Begin
   //если корень пуст то
  if root = nil then
  Begin
    //создаём его
    root:=TNode.Create(s);
    exit;//выходим
  End;
  //если добавляемое значение меньше чем значение root.GetValue то
  //добавляем его в левое поддерево
  if AnsiLowerCase(s)<AnsiLowerCase(root.GetValue) then Add(root.Fleft,s)
  //иначе добавляем в правое поддерево
  else Add(root.FRight,s);
End;

[Artem78]

Переделал метод. Сделал без рекурсии.
Всем спасибо.