Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.002 c