Как уничтожать динамические объекты и вообще объекты, если это необходимо сделать в их процедурах?

@WarlikeLaux · Регистрация: 17.01.2018

Author24 — интернет-сервис помощи студентам

Создать отдельную процедуру CloseObject(Object: TObject) и вызывать ее в конце процедуры или так тоже нельзя? А то бесят эти access violation, то их нет, то потом появляются и хрен поймешь откуда, а потом оказывается что в процедуре удаляется объект, которому принадлежит эта процедура.

DenNik · 27.05.2018, 22:29

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

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

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

выше написал уже

а по поводу "оказывается" - ржунимагу! ты же пограммист, ты писал эту процедуру, как это может быть для тебя неожиданностью?!

@WarlikeLaux · 27.05.2018, 22:36 **[ТС]**

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

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

DenNik, и как мне интересно, к примеру, удалить форму по нажатию кнопки (в моем случае, это кнопка продолжить главного меню) или кнопку по нажатию на нее (после нажатия кнопки "Начать игру" она благополучна должна отправиться на небеса и без всяких отголосков в виде этих тупых ошибок access violation)? Это логично в принципе и здравому смыслу не противоречит.

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

как это может быть для тебя неожиданностью?!

DenNik, ну я забыл, что из-за этого могут быть ошибки, вот и получилось так.

DenNik · 27.05.2018, 23:17

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

кнопку по нажатию на нее (после нажатия кнопки "Начать игру" она благополучна должна отправиться на небеса

когда ты нажимаешь на кнопку, обработчик нажатия принадлежит форме, а не кнопке

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

как мне интересно, к примеру, удалить форму по нажатию кнопки

Form.Close;

@northener · 28.05.2018, 02:18

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

DenNik · 28.05.2018, 02:23

да, мне аж интересно стало, как это автор так умудрился написать, что

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

в процедуре удаляется объект, которому принадлежит эта процедура.

@northener · 28.05.2018, 02:50

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

да, мне аж интересно стало, как это автор так умудрился написать, что
Цитата Сообщение от WarlikeLaux Посмотреть сообщение
в процедуре удаляется объект, которому принадлежит эта процедура.

Да это сплошь и рядом у новичков.
См.

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

(Удалить) кнопку по нажатию на нее

Это классический пример "как нельзя удалять компоненты".

DenNik · 28.05.2018, 03:47

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

Удалить) кнопку по нажатию на нее
Это классический пример "как нельзя удалять компоненты".

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

@krapotkin · 28.05.2018, 06:58

для совершения отложенных действий исторически есть три метода
первый метод - родной для delphi-программистов
завести специально отдельный таймер и в обработчик ему положить то что нужно
на самом деле это скрытый второй метод, родной для windows, (на самом деле тоже для делфи, т.к. там многое так работает)
это послать свое сообщение через post_message(UM_MY_MESSAGE222,0,0,0) своему окну, и в обработчике этого сообщения сделать то что нужно. но таймер это тоже всего лишь отбработчик сообщений WM_TIMER поэтому я и говорю, что это один и тот же вариант
и третий вариант
воспользоваться запуском отдельного потока только лишь для того, чтобы в нем через синхронизацию, выполнить ваше действие )))
в современных версиях

Delphi

TTask.run(procedure begin
   TThread.Synchronize(NIL, procedure begin 
      ... ваше действие
   end);
end);

но конкретно для форм еще на заре ракетостроения придуман готовый способ
в обработчике OnClose нужно написать

Delphi

1	CloseAction := caFree;

и форма вызовет при закрытии свой деструктор

нужно понимать, что все переменные кроме integer, boolean, других примитивных типов, это ссылки
поэтому переменная Form1 при создании формы это ссылка на область памяти, где лежит объект формы
можно сделать 100 переменных еще, и всем присвоить Form1 и все они будут тоже указывать на эту область
Если теперь мы разрушим форму, но область-то мы разрушить не можем, поэтому все ссылки так и будут указывать на то место где ваша форма была. поэтому обращение к любой из этих переменных либо даст вам AV если эта память еще свободна, либо испортит другие данные, которые уже могли там поселиться
Еще раз. Разрушение объекта ничего не делает с самими переменными!
Поэтому обычно для получения комбо)) вызывают не F.Free а FreeAndNil(F) чтобы в переменную записать NIL

@northener · 28.05.2018, 11:58

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

обработчик нажатия кнопки ведь не является методом самой кнопки

Этот обработчик вызывается из метода Click кнопки.

@WarlikeLaux · 28.05.2018, 15:44 **[ТС]**

Всем спасибо за помощь, решил, что буду использовать PostMessage!)

@krapotkin · 28.05.2018, 15:49

отлично. ждем вопроса "что такое UM_MY_MESSAGE222" ))
надеюсь, в процессе ответа автор выберет все-таки третий способ )))

@WarlikeLaux · 28.05.2018, 15:58 **[ТС]**

krapotkin, неа, я разобрался)

Delphi

const
  DESTROY_OBJ = WM_USER + 1;
//бла бла бла
procedure DESTROY_OBJECT(var Message: TMessage); message DESTROY_OBJ;
//бла бла бла
procedure TForm1.DESTROY_OBJECT(var Message: TMessage);
begin
  TObject(Message.WParam).Free; //изи минус объект
end;

А для формы я нашел процедуру Release, которая не влечет за собой никаких ошибок, вроде как, по крайней мере так пишут на форумах и пока что все норм.

@krapotkin · 28.05.2018, 15:58

ого!

@northener · 29.05.2018, 03:02

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

ого!

А чего так уж ОГО?

DenNik · 29.05.2018, 09:35

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

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Bye-bye!');
  Button1.Free;
end;

прекрасно работает?

WarlikeLaux, ты сделал вброс, все тебе поверили на слово и кинулись вместе с тобой решать задачу о XYZ!

@krapotkin · 29.05.2018, 10:08

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

procedure TForm2.Button1Click(Sender: TObject);
begin
* ShowMessage('Bye-bye!');
* Button1.Free;
end;

плохой код. то, что он не работает у автора, это даже хорошо )))
в FMX например это точно AV ))))

DenNik · 29.05.2018, 10:11

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

плохой код.

я не спорю. писал уже

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

если объекты "необходимо" удалять в их собственных методах, то это означает - никудышний алгоритм

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

@krapotkin · 29.05.2018, 10:17

тут не согласен
я всегда подтираю за собой созданные компоненты
правда в основном это фреймы
а создаю их всегда динамически

но очень редко объект уничтожает себя сам. точнее, никогда, кроме TThread.

DenNik · 29.05.2018, 10:29

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

но очень редко объект уничтожает себя сам

я это и имел в виду )

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

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Bye-bye!');
  Button1.Free;
end;

почему этот код плохой? если вызов деструктора последней строкой процедуры

Добавлено через 28 секунд
Button1Click - это же метод формы

Добавлено через 1 минуту
почему, елсли я напишу

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Bye-bye!');
  Button2.Free;         // это правильно, да?
end;

то это будет верно?

@krapotkin 5872 / 4593 / 1451 Регистрация: 14.04.2014 Сообщений: 20,375 Записей в блоге: 20
	28.05.2018, 15:49	12
	отлично. ждем вопроса "что такое UM_MY_MESSAGE222" )) надеюсь, в процессе ответа автор выберет все-таки третий способ ))) 0

@krapotkin 5872 / 4593 / 1451 Регистрация: 14.04.2014 Сообщений: 20,375 Записей в блоге: 20
	28.05.2018, 15:58	14
	ого! 0

@krapotkin 5872 / 4593 / 1451 Регистрация: 14.04.2014 Сообщений: 20,375 Записей в блоге: 20
	29.05.2018, 10:17	19
	тут не согласен я всегда подтираю за собой созданные компоненты правда в основном это фреймы а создаю их всегда динамически но очень редко объект уничтожает себя сам. точнее, никогда, кроме TThread. 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
		1
	RAD XE3+ Как уничтожать динамические объекты и вообще объекты, если это необходимо сделать в их процедурах? 27.05.2018, 22:23. Показов 4001. Ответов 21 Метки нет (Все метки) Создать отдельную процедуру CloseObject(Object: TObject) и вызывать ее в конце процедуры или так тоже нельзя? А то бесят эти access violation, то их нет, то потом появляются и хрен поймешь откуда, а потом оказывается что в процедуре удаляется объект, которому принадлежит эта процедура. 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	27.05.2018, 22:29	2
	если объекты "необходимо" удалять в их собственных методах, то это означает - никудышний алгоритм и конструкция программы. никогда так не делай Сообщение от WarlikeLaux оказывается что в процедуре удаляется объект, которому принадлежит эта процедура выше написал уже а по поводу "оказывается" - ржунимагу! ты же пограммист, ты писал эту процедуру, как это может быть для тебя неожиданностью?! 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	27.05.2018, 22:36 [ТС]	3
	Сообщение от DenNik если объекты "необходимо" удалять в их собственных методах, то это означает - никудышний алгоритм и конструкция программы. никогда так не делай DenNik, и как мне интересно, к примеру, удалить форму по нажатию кнопки (в моем случае, это кнопка продолжить главного меню) или кнопку по нажатию на нее (после нажатия кнопки "Начать игру" она благополучна должна отправиться на небеса и без всяких отголосков в виде этих тупых ошибок access violation)? Это логично в принципе и здравому смыслу не противоречит. Сообщение от DenNik как это может быть для тебя неожиданностью?! DenNik, ну я забыл, что из-за этого могут быть ошибки, вот и получилось так. 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	27.05.2018, 23:17	4
	Сообщение от WarlikeLaux кнопку по нажатию на нее (после нажатия кнопки "Начать игру" она благополучна должна отправиться на небеса когда ты нажимаешь на кнопку, обработчик нажатия принадлежит форме, а не кнопке Сообщение от WarlikeLaux как мне интересно, к примеру, удалить форму по нажатию кнопки Form.Close; 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,467
	28.05.2018, 02:18	5
	WarlikeLaux, если бы вы привели ваш проблемный код, было проще указать вам на ошибки и объяснить почему этот код ошибочный. Ну а в качестве бонуса, могу сообщить вам, что есть нормальный вариант уничтожения компонента из его собственного метода. PostMessage его владельцу. 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	28.05.2018, 02:23	6
	да, мне аж интересно стало, как это автор так умудрился написать, что Сообщение от WarlikeLaux в процедуре удаляется объект, которому принадлежит эта процедура. 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,467
	28.05.2018, 02:50	7
	Сообщение от DenNik да, мне аж интересно стало, как это автор так умудрился написать, что Цитата Сообщение от WarlikeLaux Посмотреть сообщение в процедуре удаляется объект, которому принадлежит эта процедура. Да это сплошь и рядом у новичков. См. Сообщение от WarlikeLaux (Удалить) кнопку по нажатию на нее Это классический пример "как нельзя удалять компоненты". 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	28.05.2018, 03:47	8
	Сообщение от northener Удалить) кнопку по нажатию на нее Это классический пример "как нельзя удалять компоненты". ну почему же. обработчик нажатия кнопки ведь не является методом самой кнопки. другое дело, что это по сути глупое действие 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,467
	28.05.2018, 11:58	10
	Сообщение от DenNik обработчик нажатия кнопки ведь не является методом самой кнопки Этот обработчик вызывается из метода Click кнопки. 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	28.05.2018, 15:44 [ТС]	11
	Всем спасибо за помощь, решил, что буду использовать PostMessage!) 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,467
	29.05.2018, 03:02	15
	Сообщение от krapotkin ого! А чего так уж ОГО? 0

@krapotkin 5872 / 4593 / 1451 Регистрация: 14.04.2014 Сообщений: 20,375 Записей в блоге: 20
	29.05.2018, 10:08	17
	Сообщение от DenNik procedure TForm2.Button1Click(Sender: TObject); begin * ShowMessage('Bye-bye!'); * Button1.Free; end; плохой код. то, что он не работает у автора, это даже хорошо ))) в FMX например это точно AV )))) 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	29.05.2018, 10:11	18
	Сообщение от krapotkin плохой код. я не спорю. писал уже Сообщение от DenNik если объекты "необходимо" удалять в их собственных методах, то это означает - никудышний алгоритм нужно перестраивать архитектуру программы. всегда можно обойтись без удаления компонентов 0

Как уничтожать динамические объекты и вообще объекты, если это необходимо сделать в их процедурах?

Решение