Зацикливается Чтение свойстсва функцией

← →
Sakipiel (2014-06-05 03:24) [0]

TObjectsTreeForm = class(TForm) ........... private ............ FSearchMetodsText :string; Function GetCItemsMethodsText:string; public ........... published Property SearchMetodsText :string read FSearchMetodsText write FSearchMetodsText; Property CItemsMethodsText:string read GetCItemsMethodsText; end;

есть какой то вот такой класс, с вот такой функцией:

Function TObjectsTreeForm.GetCItemsMethodsText():string; var node:TTreeNode; begin result := ""; if SearchMetodsText = "" then exit; node := ObjectsTreeForm.FindObject(SearchMetodsText); // ищем такой объект в дереве if node = nil then exit; // если не нашли, значит это не объект if TGroupItem(node.Data).isItem = true then // если нашли, и это итем, то добавляем именна функций возможных begin result := CItemsMethodsText; end end;

ничего интересного в этой функции нет, она нормально отрабатывает...раз этак 100500, и вопрос именно в этом и заключается, почему следующий код:

ObjectsTreeForm.SearchMetodsText := "ИмяИскомогоОбъекта"; ShowMessage(ObjectsTreeForm.CItemsMethodsText);

приводит к тому, что эта функция начинает вызываться бесконечно пока не переполнится стек?

← →
Sakipiel (2014-06-05 03:27) [1]

))))))))) во написал и сам увидел ))

Зацикливается Чтение свойстсва функцией Найти похожие ветки