Перейти к содержанию
Fire Monkey от А до Я
  • 0

Кто вызвал процедуру


walexw

Вопрос

Рекомендуемые сообщения

  • 0

Пытаюсь разобрать чужой код (проект здоровый, процедур много)
По ходу заполняется TreeView, откуда не понятно, надо найти.
В процедуре регистрации панели (RegisterSetupPanel) последняя строчка  AddTreeTag
там заполняется одна строка TreeView (значением TagPath: String), а всего строк 10,
значит 10 раз отрабатывает. Внутри RegisterSetupPanel я "стою" в дебаггере,
отследить получается только первую строчку, но кто "толкнул" неизвестно.
Ссылки на запуск RegisterSetupPanel внутри проекта нет, вот мне и надо найти
кто его "толкает".

procedure TfrmSetup.RegisterSetupPanel(TagPath: String; aObject: TControl);
var Frm: TCustomForm;
    i: integer;
begin
  Frm := GetParentForm(TControl(aObject));
  if (Frm.Width+panLeft.Width)<Screen.Width then
    if(Frm.Width+panLeft.Width) > Width then
      Width:= Frm.Width+panLeft.Width;
  SetActionEnabled(TPanel(aObject), false);
  for i := 0 to Frm.ComponentCount - 1 do
    if Frm.Components is TActionList then begin
      frmSetup.InsertComponent(Frm.Components);
      Frm.RemoveComponent(Frm.Components);
      Break;
    end;

  aObject.Parent := panMain;
  aObject.Visible := false;
  AddTreeTag(nil, TagPath).Data := aObject;
end;

Ссылка на комментарий
  • 0

В JCL встречал подобное - ProcByLevel в JclDebug .

Но без Debug info это не узнаешь. А как это будет работать на других компиляторах тоже неизвестно.

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

Также это почитайте http://eurekalog.blogspot.com/2010/05/new-exception-class-in-delphi-2009-and_05.html

Upd 

Я что-то подумал что вам нужно логгер сделать, по типу MadExcept, все оказалось проще.

Изменено пользователем ENRGY
Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...