Зацикливается Чтение свойстсва функцией
Sakipiel © (2014-06-05 03:24:00)
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:00) [1]
))))))))) во написал и сам увидел ))
Наверх 
ЧАТ |
Орешник |
|
