Вопрос # 6 499: …у меня непонятная проблема. Пытаюсь запустить программу пошагово, и от… (Оболочка Delphi, компилятор, версии среды и т.д.)

Здравствуйте, эксперты!
у меня непонятная проблема. Пытаюсь запустить программу пошагово, и отладчик сразу показывает CPU Window. Я много чего перепробовал уже и пришёл к выводу, что это ошибка в коде. Но компилятор её не видит. Прочитав статью многоуважаемого GunSmoker (http://www.gunsmoker.ru/2012/02/5.html), я заметил такую особенность: напротив всех мест машинного кода, которые соответствуют исходному вроде бы можно поставить BP, однако у меня в программе в некоторых местах это нельзя сделать даже на точке входа в метод. Почему?

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Добавлю, что структура юнитов такая: есть юнит с обобщённым классом [TGenericCollection<T> = class(TCollection)], от него наследуются другие коллекции в проекте, каждая находится в своём отдельном юните. Это одно из моих подозрений, но оно не первостепенное.

Вчера на тестовом проекте я обнаружил такую особенность: есть два юнита "модели" и один юнит "формы" (схема модель-контрлллер-представление). Юнит с классом-родителем подключается к юниту формы в интерфейсной части, а юнит с классом-наследником - к части реализации. К юниту с классом-родителем юнит формы подключается в разделе реализации. И вот тут появляется окно ЦПУ. Причём первые два запуска - нормально, отладчик. На третий - окно ЦПУ. Как только я убираю юнит класса-наследника из реализации юнита формы - всегда отладчик стартует нормально. Ещё влияет максимальный размер стека в свойствах проекта. Не знаю, как, но отладчик перед "падением" запускается большее число раз, если его увеличить. А вот на втором проекте - большом - отладчик падает сразу. И в конце концов среда выдаёт "разрушительный сбой" в dcc140.dll

[DCC Fatal Error] Exception EAccessViolation: Access violation at address 09755F99 in module 'dcc140.dll'. Write of address 00000003

[DCC Error] Разрушительный сбой (Exception from HRESULT: 0x8000FFFF (E_UNEXPECTED))

Я решил вопрос сам.
Итак, пишу для тех, кто может с этим столкнуться.
Я переопределял класс коллекции и сделал его, как написано выше, обобщённым. Поглядев на класс TCollection, я скопировал оттуда Enumerator. Вот его код:

TCollectionEnumerator = class
private
FIndex: Integer;
FCollection: TCollection;
public
constructor Create(ACollection: TCollection);
function GetCurrent: TCollectionItem; inline;
function MoveNext: Boolean;
property Current: TCollectionItem read GetCurrent;
end;

И я сделал ТОЧНО такой же себе, с учётом необходимых изменений. В этом и была моя ошибка. Вот его код:

TGCEnumerator<TGI: TGenericItem> = class
strict private
FIndex: Integer;
FGC: TGenericCollection<TGI>;

public
constructor Create(AGC: TGenericCollection<TGI>);
destructor Destroy; override;

function GetCurrent: TGI; inline;
function MoveNext: Boolean;

property Current: TGI read GetCurrent;
end;

И вот тут кроется злостный и гадкий жук. В чём там дело, я не знаю, да это и не важно. Просто так работает компилятор, и всё. А именно: виновата директива inline. Так как класс у меня обощённый, то инлайн ломает какие-то инструкции, что и рушило отладчик, который показывал ЦПУ вместо нормальной пошаговости. Как только я убрал эту директиву - всё заработало отлично. Обращаю ваше внимание, что коллекция по прежнему остаётся обощённой. Не обобщён только энумератор, который я перенёс внутрь класса коллекции.

Код, который был:

TGCEnumerator<TGI: TGenericItem> = class;

TGenericCollection<TGI: TGenericItem> = class(TOwnedCollection)
...
public
function GetEnumerator: TGCEnumerator<TGI>;
...
end;

TGCEnumerator<TGI: TGenericItem> = class
strict private
FIndex: Integer;
FGC: TGenericCollection<TGI>;

public
constructor Create(AGC: TGenericCollection<TGI>);
destructor Destroy; override;

function GetCurrent: TGI; inline;
function MoveNext: Boolean;

property Current: TGI read GetCurrent;
end;

Код, который стал:

TGenericCollection<TGI: TGenericItem> = class(TOwnedCollection)
type
TGCEnumerator = class
strict private
FIndex: Integer;
FGC: TGenericCollection<TGI>;

public
constructor Create(AGC: TGenericCollection<TGI>);
destructor Destroy; override;

function GetCurrent: TGI;
function MoveNext: Boolean;

property Current: TGI read GetCurrent;
end;
...
public
function GetEnumerator: TGCEnumerator; reintroduce;
...
end;

Мини-форум вопроса