Переполнение стека Delphi из-за цикла обработки событий

Основываясь на размещенном стеке вызовов, очевидно, почему происходит ошибка: TStringSetting.EditChange вызывает TFloatSetting.EditChange, а это, в свою очередь, вызывает TStringSetting.EditChange. Цикл продолжается до тех пор, пока все пространство стека не будет исчерпано.

Вот несколько советов о том, почему это может произойти, а также советы о том, как это исправить:

• Возможно, задействованные элементы управления запускают обработчик событий OnChange, когда Value изменяется программно. Если два редактора должны отображать одни и те же данные в двух форматах, и вы используете соответствующие обработчики событий OnChange для их синхронизации, это может быть причиной.
• Возможно, вы напрямую вызываете один обработчик событий из другого.

Способы отладки:

• Сначала вы должны попробовать решение для точки останова, предложенное paulsm4. Если переполнение стека происходит каждый раз, когда вызывается один из обработчиков OnChange, это решение легко сработает.
• Закомментируйте код одного из обработчиков событий. Запустите программу, ошибка больше не должна появляться. Раскомментируйте код маленькими (но логичными) частями, протестируйте и повторите. Когда ошибка появляется снова, вы знаете, что финансируете линию, вызвавшую ошибку. Если вы не можете понять это самостоятельно, отредактируйте вопрос, добавьте код и отметьте строку, которая, как вы только что обнаружили, вызывает у вас проблемы.

Если используемые вами элементы управления запускают обработчик событий OnChange при программном изменении значения, вы должны сделать свои обработчики событий нереентерабельными: это точно остановит бесконечный рекурсивный цикл. Я почти всегда предполагаю, что элементы управления вызывают OnChange или эквивалентные события, когда свойства изменяются из кода, и всегда защищаю себя от повторного входа, используя что-то вроде этого:

// Somewhere in the private section of your form's class:
FProcessingEventHandler: Boolean;

// This goes in your event handler
procedure TYourForm.EventHandler(Sender:TObject);
begin
  if FProcessingEventHandler then Exit; // makes code non-reentrant
  FProcessingEventHandler := True;
  try
    // old code goes here ...
  finally FProcessingEventHandler := False;
  end;
end;

Предложения:

1. Установите точку останова в EditChange и OldCustomEditChange, чтобы увидеть, кто их вызывает. Каждый вызов. Очевидно, что только EditChange должен всегда вызывать OldCustomEditChange.

2. Посмотрите в своем .dfm, чтобы убедиться, что EditChange назначается только одному событию (а не нескольким событиям), а OldCustomEditChange вообще не назначается.

Вы сообщаете о непрерывной последовательности рекурсивных вызовов EditChange. Глядя на код EditChange, есть два кандидата на рекурсивный вызов:

1. OldCustomEditChange равен EditChange или вызывает функцию, которая, в свою очередь, вызывает EditChange.
2. Обработчик событий, реагирующий на изменения в FValueControl.Font вызовом EditChange.

Это единственные возможности для кода в EditChange вызывать самого себя.

Легко увидеть, как обе эти возможности приводят к незавершенному рекурсивному вызову функции и, в конечном счете, к переполнению стека. Из двух кандидатов моя ставка номер 1. Я бы внимательно изучил, что происходит, когда коллируют OldCustomEditChange.

Чтобы отладить переполнение стека такого рода, просто откройте окно стека вызовов и посмотрите на длинную последовательность вызовов. Обычно вы видите шаблон с одной функцией, вызывающей саму себя, возможно, через одну или несколько промежуточных функций.