Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.11.08;
Скачать: 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 вся ветка

Текущий архив: 2015.11.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.005 c
15-1426973404
Юрий
2015-03-22 00:30
2015.11.08
С днем рождения ! 22 марта 2015 воскресенье


15-1426696739
Pavelnk
2015-03-18 19:38
2015.11.08
DWD-RW


15-1426683289
Piter
2015-03-18 15:54
2015.11.08
Delphi как инструмент для зарабатывания денег


15-1427282328
кгшзх
2015-03-25 14:18
2015.11.08
json буферизация отдачи (как)


2-1402063561
trylok
2014-06-06 18:06
2015.11.08
Записать Pointer в TMemoryStream. Как?