Invalid pointer operation при передаче компонента как параметра

[Turbine]

Здравствуйте!

Передаю компоненту tmemo в качестве параметра
Код:

procedure tx.UseMemo(const m: tmemo);
begin
if m<>nil then mmm:=m;
end;

или в качестве указателя
Код:

procedure tx.UseMemobyPointer(mp:pointer);
begin
if mp<>nil then mpr:=mp;
end;

работа с мемо пробовалась двумя способами:

Код:

mmm.Lines.Add(s);
// или
tmemo(mpr).Lines.Add(s);

Компонент прекрасно с ним работает, строки добавляются, но...
Если вызвать деструктор компонента раньше завершения программы, то invalid pointer operation.

Если просто закрыть программу, то все гладко.

[min@y™]

Если вызвать деструктор компонента раньше завершения программы

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

[kropotkina-alice]

Сообщение от Turbine

Если вызвать деструктор компонента

А зачем его вызывать-то???
Или вы при закрытии программы вначале последовательно уничтожаете все компоненты???

[Turbine]

Сообщение от min@y™

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

memo в дизайнере
компонент, который использует memo и создается и отпевается динамически.
Я тут немного дурака свалял в описании. Приношу извинения
Все происходит в двух вариантах:

1. Динамически создается компонент
2. Передается мемо любым из вышеописанных способов
3. Работа с компонентом
4. Вызов деструктора компонента (там кроме inherited нет ничего)
5. При закрытии программы - invalid pointer operator

При этом
Если только:
1. Динамически создается компонент
2. Передается мемо любым из вышеописанных способов
3. Работа с компонентом
4. Закрыть программу (деструктор компонента вызовется автоматически в FormDestroy)
то ошибки не возникает...

Сравнивал owner,parent, значение указателя у memo в начале и после destroy - ничего не меняется.
Пытался отбиться freenotification - не помогло
Пытался работать не с самим memo, а с lines через указатель - та же картина

[Turbine]

Сообщение от kropotkina-alice

А зачем его вызывать-то???
Или вы при закрытии программы вначале последовательно уничтожаете все компоненты???

Компонент подразумевает динамическое создание и разрушение, соответственно тестируется всячески.
Т.е., динамичеки создается, заружается под завязку, потом уничтожается, чтобы выявить утечки и прочую пакость

[min@y™]

я ж просил код показать!
неужто вызываешь destroy() напрямую?

показывай весь код, где компонент родится, живёт и помирает.

[Баламут]

Для затравки... Почему const?

[Turbine]

Сообщение от Баламут

Для затравки... Почему const?

пробовал и как var
дело оказалось совсем в другом

[Turbine]

Проблему удалось решить довольно дебильным образом.
Причем второй раз сталкиваюсь с этим.

Достаточно было просто поставить описание переменной типа tMemo в другое место секции public.
В прошлый раз пришлось "переставлять" массивы.
Чем руководствовался компилятор и в том и в другом случае неизвестно.