Уничтожение динамически созданного TLabel

@hsimpson · Регистрация: 21.05.2012

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

Добрый день,
После динамического создания экземпляра TLabel

Delphi

1	L[G[12]]:=TLabel.Create(Self);

мне нужно этот экземпляр уничтожить за ненадобностью.
Подскажите пожалуйста как ?

Спасибо.

@Puporev · 21.04.2019, 20:06

L[G[12]].Free;

@hsimpson · 21.04.2019, 20:18 **[ТС]**

Спасибо, добрый человек.

@hsimpson · 02.05.2019, 00:06 **[ТС]**

Добрый день.
Всех с майскими праздниками.

У меня маленькая вводная к главному вопросу этой темы: мне нужно уничтожить экземпляр Tlabel только в том случае, если он был создан ранее.
Подскажите, как проверить: существует нужный экземпляр или нет?

Спасибо.

Verevkin · 02.05.2019, 00:15

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

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

Зависит от задачи.

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

Подскажите, как проверить: существует нужный экземпляр или нет?

В общем случае - никак. Почему тебе надо это проверять и что за объект?

@hsimpson · 02.05.2019, 00:51 **[ТС]**

Я рисую графики в отчете. Числовые значения визуализирую с помощью динамического создания экземпляров Tlabel.
Когда графики перересовываю - остаются старые надписи.
Вот их я и хочу уничтожать.
Раз легкого решения нет - буду шаманить. Создам переменную и буду в ней хранить факт существования нужного экземпляра.

Verevkin · 02.05.2019, 00:58

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

Я рисую графики в отчете.

Ну так рисуй и текст вместо того, чтоб показывать его в TLabel.

@hsimpson · 02.05.2019, 01:02 **[ТС]**

Прошу обьяснить - это как?
На convase вырисовывать по буквам?

Verevkin · 02.05.2019, 02:32

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

На convase вырисовывать по буквам?

Ога. Прям на конвасе.

Уничтожение динамически созданного TLabel

@Мирзали · 02.05.2019, 10:12

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

В общем случае - никак

Assigned() не поможет?

Verevkin · 02.05.2019, 13:01

Сообщение от Мирзали

Assigned() не поможет?

Нет. Эта функция тупо проверяет, равен ли указатель нулю или нет.

@Nanotentacle · 02.05.2019, 13:31

Assigned() спасёт при следующих условиях:
1) изначально (до момента создания) объект гарантированно инициализируется значением nil;
2) объект удаляется через FreeAndNil или после выполнения Free указателю на объект присваивается nil;
3) если объект удаляется через другой указатель (например, внутри процедуры, где указатель на объект является аргументом), то assigned работать не будет.

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

@hsimpson · 02.05.2019, 13:42 **[ТС]**

Добрый день.
ПРОШУ НЕ ОБРАЩАТЬ ВНИМАНИЯ НА ТУ ХЕРНЮ, КОТОРУЮ Я ШПАРИЛ ПРОШЕДШЕЙ НОЧЬЮ.
Проклятый первомайский алкоголь временно лишил меня возможности думать.
Извиняюсь.
‐----------
По теме: оказалось, что не важно, создавался ли ранее тот экземпляр, который мне нужно было уничтожить.
Решение моей проблемки выглядит вот так:

А(0).free;
A(0):=nil;

-----------

Всем спасибо.

Verevkin · 02.05.2019, 13:47

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

ПРОШУ НЕ ОБРАЩАТЬ ВНИМАНИЯ НА ТУ ХЕРНЮ, КОТОРУЮ Я ШПАРИЛ ПРОШЕДШЕЙ НОЧЬЮ.
Проклятый первомайский алкоголь временно лишил меня возможности думать.
Извиняюсь.

Да нам, собственно, пофигу. Даже если ты и правда продолжишь лепить динамические TLabel вместо простого рисования текста на TCanvas.

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

@mac1eod · 02.05.2019, 13:56

Не по теме:

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

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

за вами записывать можно)

Verevkin · 02.05.2019, 14:07

Не по теме:

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

за вами записывать можно)

Нужно! :good:

@hsimpson · 02.05.2019, 14:25 **[ТС]**

Спасибо за советы по теме, а какому контмнгенту и что показывать - разберусь.

Verevkin Злостный нарушитель 9514 / 5158 / 1175 Регистрация: 12.03.2015 Сообщений: 24,315
	02.05.2019, 13:01	11
	Сообщение от Мирзали Assigned() не поможет? Нет. Эта функция тупо проверяет, равен ли указатель нулю или нет. 1

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	02.05.2019, 14:25 [ТС]	17
	Спасибо за советы по теме, а какому контмнгенту и что показывать - разберусь. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.04.2019, 20:06	2
	Сообщение было отмечено hsimpson как решение Решение L[G[12]].Free; 1

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	21.04.2019, 20:18 [ТС]	3
	Спасибо, добрый человек. 0

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	02.05.2019, 00:06 [ТС]	4
	Добрый день. Всех с майскими праздниками. У меня маленькая вводная к главному вопросу этой темы: мне нужно уничтожить экземпляр Tlabel только в том случае, если он был создан ранее. Подскажите, как проверить: существует нужный экземпляр или нет? Спасибо. 0

Verevkin Злостный нарушитель 9514 / 5158 / 1175 Регистрация: 12.03.2015 Сообщений: 24,315
	02.05.2019, 00:15	5
	Сообщение от hsimpson мне нужно уничтожить экземпляр Tlabel только в том случае, если он был создан ранее. Зависит от задачи. Сообщение от hsimpson Подскажите, как проверить: существует нужный экземпляр или нет? В общем случае - никак. Почему тебе надо это проверять и что за объект? 1

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	02.05.2019, 00:51 [ТС]	6
	Я рисую графики в отчете. Числовые значения визуализирую с помощью динамического создания экземпляров Tlabel. Когда графики перересовываю - остаются старые надписи. Вот их я и хочу уничтожать. Раз легкого решения нет - буду шаманить. Создам переменную и буду в ней хранить факт существования нужного экземпляра. 0

Verevkin Злостный нарушитель 9514 / 5158 / 1175 Регистрация: 12.03.2015 Сообщений: 24,315
	02.05.2019, 00:58	7
	Сообщение от hsimpson Я рисую графики в отчете. Ну так рисуй и текст вместо того, чтоб показывать его в TLabel. 1

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	02.05.2019, 01:02 [ТС]	8
	Прошу обьяснить - это как? На convase вырисовывать по буквам? 0

Verevkin Злостный нарушитель 9514 / 5158 / 1175 Регистрация: 12.03.2015 Сообщений: 24,315
	02.05.2019, 02:32	9
	Сообщение было отмечено hsimpson как решение Решение Сообщение от hsimpson На convase вырисовывать по буквам? Ога. Прям на конвасе. 1

@Мирзали 35 / 29 / 15 Регистрация: 20.11.2010 Сообщений: 481
	02.05.2019, 10:12	10
	Сообщение от Verevkin В общем случае - никак Assigned() не поможет? 1

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	02.05.2019, 13:31	12
	Assigned() спасёт при следующих условиях: 1) изначально (до момента создания) объект гарантированно инициализируется значением nil; 2) объект удаляется через FreeAndNil или после выполнения Free указателю на объект присваивается nil; 3) если объект удаляется через другой указатель (например, внутри процедуры, где указатель на объект является аргументом), то assigned работать не будет. Ну и надо понимать, что переменная с объектом на самом деле является указателем, а не действительным объектом. 1

@hsimpson 1 / 1 / 3 Регистрация: 21.05.2012 Сообщений: 246
	02.05.2019, 13:42 [ТС]	13
	Добрый день. ПРОШУ НЕ ОБРАЩАТЬ ВНИМАНИЯ НА ТУ ХЕРНЮ, КОТОРУЮ Я ШПАРИЛ ПРОШЕДШЕЙ НОЧЬЮ. Проклятый первомайский алкоголь временно лишил меня возможности думать. Извиняюсь. ‐---------- По теме: оказалось, что не важно, создавался ли ранее тот экземпляр, который мне нужно было уничтожить. Решение моей проблемки выглядит вот так: А(0).free; A(0):=nil; ----------- Всем спасибо. 0

Verevkin Злостный нарушитель 9514 / 5158 / 1175 Регистрация: 12.03.2015 Сообщений: 24,315
	02.05.2019, 13:47	14
	Сообщение от hsimpson ПРОШУ НЕ ОБРАЩАТЬ ВНИМАНИЯ НА ТУ ХЕРНЮ, КОТОРУЮ Я ШПАРИЛ ПРОШЕДШЕЙ НОЧЬЮ. Проклятый первомайский алкоголь временно лишил меня возможности думать. Извиняюсь. Да нам, собственно, пофигу. Даже если ты и правда продолжишь лепить динамические TLabel вместо простого рисования текста на TCanvas. Только не показывай свою вундервафлю детям и беременным женщинам. 0

@mac1eod
	02.05.2019, 13:56 #15
	Не по теме: Сообщение от Verevkin Только не показывай свою вундервафлю детям и беременным женщинам за вами записывать можно) 0

Verevkin
	02.05.2019, 14:07 #16
	Не по теме: Сообщение от mac1eod за вами записывать можно) Нужно! :good: 0