Есть ли способ найти неиспользуемые обработчики событий в Delphi?

Я не думаю, что это возможно с автоматической точки зрения. обработчики событий активируются, когда конкретное событие происходит внутри объекта. То, что даже не запускается в данном прогоне, не означает, что нет пути выполнения, который мог бы привести к нему.

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

e.g.

button.onclick: = DefaultClickHandler;

button.onClick: = SpecialClickHandler;

Предполагается, что обработчики кликов соответствуют сигнатуре события onclick, но вы не получите компиляцию, если бы сигнатура была неверной.

однако вы, вероятно, можете найти все заброшенные обработчики, просмотрев все методы, которые имеют подпись метода (Sender: TObject), и сравнив его методы с методами в .dfm (убедитесь, что вы сохранили его как текст, если вы работа с более старой версией delphi), в моей книге под подозрением были бы не подключены автоматические соединения.

--

если вы не хотите идти по пути cygwin, вы можете загрузить src и dfm в два TStirngLists и вырвать имя / идентификаторы из каждого и сгенерировать список с парой циклов и некоторыми строковыми манипуляциями. я предполагаю, что это около 20 минут работы, чтобы получить то, с чем можно жить.

Это немного некрасиво (ладно, это много некрасиво), но для одного устройства это почти надежно и не требует дополнительных инструментов:

1. Убедитесь, что текущая версия формы зарегистрирована в системе управления версиями!
2. Перейдите в верхнюю часть интерфейса класса, в котором находятся обработчики событий. Удалите все интерфейсы методов обработчика событий.
3. Посмотрите Code Explorer / Error Insight. Методы, которые имеют реализации, но не имеют интерфейсов, будут выделены. Удалите реализации.
4. Теперь сохраните агрегат. Delphi будет по очереди жаловаться на отсутствие обработчика событий для каждого фактически обработанного события. Записывайте их по мере появления ошибок.
5. Проверьте исходную версию формы и удалите обработчики событий для всего, чего нет в вашем списке.

Используйте рефакторинг «Rename Method», чтобы переименовать каждый обработчик событий. Установите флажок «Просмотреть ссылки перед рефакторингом».

Проверьте окно рефакторинга. Если обработчик событий связан с элементом управления, появится раздел «Обновления конструктора VCL», в котором будет показано, какие элементы управления связаны с методом.

Это также покажет, вызывается ли метод из каких-либо других модулей или назначается программно.

Примечание: это для D2006, может немного отличаться в более поздних версиях.

обозреватель кода ModelMaker содержит так называемый Просмотр обработчика событий. Он также показывает обработчики событий, не подключенные к какому-либо компоненту.

Не существует решения, которое гарантированно дало бы правильный ответ в самом общем случае (основанном, как вы заметили, на возможности вызова их через RTTI).

Одним из решений было бы провести тесты покрытия кода и внимательно посмотреть на обработчики, которые никогда не были достигнуты.

Мне не известно о существовавшем ранее приложении или плагине для этого, но создать сценарий не составит труда.

Предполагая, что вы не используете RTTI или не назначаете обработчики событий вручную: (Я использую C ++ Builder, а не Delphi, поэтому следующее может быть не совсем правильным.)

1. Make a list of all published methods in your code.
   • The proper way to do this is to read *.pas. Find each text block that starts with a class declaration or a published directive and ends with a end, private, or public. Within each of these text blocks, extract each procedure.
   • Самый простой способ сделать это - составить список распространенных типов обработчиков событий и предположить, что они опубликованы.
2. Получив этот список, распечатайте из него все, чего нет в вашем файле DFM.

Мне удобнее всего использовать инструменты Cygwin или Linux для написания сценариев. Вот сценарий bash, который работает в Cygwin и должен делать то, что вы хотите.

#!/bin/bash

for file in `find -name *.pas`; do
    echo $file:

    # Get a list of common event handling procedures.
    # Add more types between the | symbols.
    egrep '^[[:space:]]+procedure.*(Click|FormCreate|FormClose|Change|Execute)\(' $file | 
    awk '{print $2}' | cut -f 1 -d '(' > published.txt

    # Get a list of used event procedures.
    egrep '^[[:space:]]+On.* =' ${file%.pas}.dfm | awk '{print $3}' > used.txt

    # Compare the two.
    # Files listed in the left column are published but not used, so you can delete them.
    # Files in the right column were not by our crude search for published event 
    # handlers, so you can update the first egrep command to find them.
    comm -3 published.txt used.txt

    echo

done

# Clean up.
rm published.txt used.txt

Чтобы использовать это, если вы не знакомы с Cygwin:

• Загрузите и установите Cygwin. Я думаю, что установка по умолчанию должна предоставить вам все инструменты, которые я использовал, но я не уверен.
• Сохраните сценарий в исходном каталоге как cleanup.sh.
• Запустите командную строку Cygwin.
• Если ваш источник находится в c: \ MyApp, введите cd /cygdrive/c/myapp
• Введите ./cleanup.sh и нажмите Enter.

Есть гораздо более простой подход, чем у Крейга.

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

Если это не нравится, просто измените имена обратно.

Вы можете использовать тот же подход для удаления элементов данных, которые больше ничего не делают.