Сообщение "A component named *** already exists"

@Rasool · Регистрация: 02.04.2009

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

Моя программа работает с "железом", она управляет специальной измерительной системой, которая измеряет геометрические параметры деталей с помощью лазера по отдельным точкам. Измеренные значения точек сопоставляются с эталонными значениями, нанесенными на загруженную виртуальную эталонную 3d-модель детали, и делается вывод о годности детали или, соответственно, не годности. Есть два режима работы. При нажатии кнопки (событие TfrmBazir.actStartExecute) на главной формочке TfrmBazir появляется новая формочка с результатами измерений TfrmBladeMeasureResults:
1) без проведения непосредственного измерения детали, получаем только эталонные точки на 3d-модели детали;
2) с проведением измерений детали и получением реальных точек.
В моей программе имеет место следующая проблема. Генерируем формочку TfrmBladeMeasureResults без проведения измерений системой, потом закрываем ее, потом снова открываем - все проходим без проблем. Генерируем формочку TfrmBladeMeasureResults с проведением измерений системой, потом закрываем ее, потом снова открываем - форма не открывается, вместо этого выдается ошибка "A component named frmBladeMeasureResults already exists". В чем может быть дело?

Delphi

procedure TfrmBazir.actStartExecute(Sender: TObject);
var
    frmMSRResults: TfrmBladeMeasureResults;
begin
        // ...
        frmMSRResults := TfrmBladeMeasureResults.Create(self);
        frmMSRResults.lblPathToModel.Caption := ModelFileName;
        frmMSRResults.Show;
        frmMSRResults.WindowState := wsMaximized;
        frmMSRResults.NeedToAutoCloseAfterMeasure := False;
        // ...
end;

@qwertehok · 27.10.2017, 16:06

ошибка у тебя есть, исходники тоже, отладчик в руки и вперед
по 10 строчкам кода сложно гадать почему у тебя ошибка вылезает

@Rasool · 27.10.2017, 18:53 **[ТС]**

Я погуглил сообщение об ошибке, нашел следующее:

TComponent.SetName вызывает TComponent.ValidateName, которая, в свою очередь, вызывает функцию FindComponent (поиск компонента по имени среди компонентов, для которых Self является владельцем (Owner)). И если компонент с таким же именем найден, то вызывается Exception с сообщением формата SDuplicateName. Теперь стоит посмотреть на свой код. Почему к моменту fmReserve:=TfmReserve.Create(self);
у self уже является владельцем компонента с таким же именем.

Значит, self надо поменять на что-то другое?

Добавлено через 12 минут

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

ошибка у тебя есть, исходники тоже, отладчик в руки и вперед
по 10 строчкам кода сложно гадать почему у тебя ошибка вылезает

Отладчик останавливается на строчке

Delphi

1	frmMSRResults := TfrmBladeMeasureResults.Create(self);

@qwertehok · 27.10.2017, 18:58

Не по теме:

мой магический шар тоже на этих строчках останавливается

@Rasool · 27.10.2017, 19:45 **[ТС]**

Небольшое пояснение:

Delphi

1
2
3

    TfrmBladeMeasureResults = class(TfrmMeasureResults)
    TfrmMeasureResults = class(TForm)
    TfrmBazir = class(TForm)

@krapotkin · 28.10.2017, 05:52

эта ошибка возникает когда на на форме УЖЕ ЕСТЬ КОМПОНЕНТ с таким же именем, или УЖЕ ЕСТЬ ФОРМА с таким же именем среди других форм (неожиданно, да?))))

99% за то что вы форму создаете (Create) показываете (Show) и закрываете (Close)
не хватает только места, где вы ее разрушаете (Free)
так что при создании новой копии вам говорят, что такой компонент уже существует

решения на выбор
1. в обработчике OnClose поставить Action := caFree
2. хранить ссылку на созданную форму и явно ее разрушать где-то например перед повторным созданием
FMyForm.Free
3. Вызывать форму модально
https://www.cyberforum.ru/blog... g4873.html

@Rasool · 28.10.2017, 09:24 **[ТС]**

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

эта ошибка возникает когда на на форме УЖЕ ЕСТЬ КОМПОНЕНТ с таким же именем, или УЖЕ ЕСТЬ ФОРМА с таким же именем среди других форм (неожиданно, да?))))
99% за то что вы форму создаете (Create) показываете (Show) и закрываете (Close)
не хватает только места, где вы ее разрушаете (Free)
так что при создании новой копии вам говорят, что такой компонент уже существует
решения на выбор
1. в обработчике OnClose поставить Action := caFree
2. хранить ссылку на созданную форму и явно ее разрушать где-то например перед повторным созданием
FMyForm.Free
3. Вызывать форму модально
https://www.cyberforum.ru/blog... g4873.html

Большое спасибо, будем думать.

@Case-Man · 28.10.2017, 09:42

Ещё можно решать проблему "в лоб" - каждый раз менять Name, например, добавлять порядковый номер

@qwertehok 5484 / 4399 / 1076 Регистрация: 29.08.2013 Сообщений: 27,563 Записей в блоге: 3
	27.10.2017, 16:06	2
	ошибка у тебя есть, исходники тоже, отладчик в руки и вперед по 10 строчкам кода сложно гадать почему у тебя ошибка вылезает 0

@qwertehok
	27.10.2017, 18:58 #4
	Не по теме: мой магический шар тоже на этих строчках останавливается 0

@krapotkin 5858 / 4587 / 1447 Регистрация: 14.04.2014 Сообщений: 20,340 Записей в блоге: 20
	28.10.2017, 05:52	6
	эта ошибка возникает когда на на форме УЖЕ ЕСТЬ КОМПОНЕНТ с таким же именем, или УЖЕ ЕСТЬ ФОРМА с таким же именем среди других форм (неожиданно, да?)))) 99% за то что вы форму создаете (Create) показываете (Show) и закрываете (Close) не хватает только места, где вы ее разрушаете (Free) так что при создании новой копии вам говорят, что такой компонент уже существует решения на выбор 1. в обработчике OnClose поставить Action := caFree 2. хранить ссылку на созданную форму и явно ее разрушать где-то например перед повторным созданием FMyForm.Free 3. Вызывать форму модально https://www.cyberforum.ru/blog... g4873.html 1

@Rasool 4 / 286 / 2 Регистрация: 02.04.2009 Сообщений: 607
	28.10.2017, 09:24 [ТС]	7
	Сообщение от krapotkin эта ошибка возникает когда на на форме УЖЕ ЕСТЬ КОМПОНЕНТ с таким же именем, или УЖЕ ЕСТЬ ФОРМА с таким же именем среди других форм (неожиданно, да?)))) 99% за то что вы форму создаете (Create) показываете (Show) и закрываете (Close) не хватает только места, где вы ее разрушаете (Free) так что при создании новой копии вам говорят, что такой компонент уже существует решения на выбор 1. в обработчике OnClose поставить Action := caFree 2. хранить ссылку на созданную форму и явно ее разрушать где-то например перед повторным созданием FMyForm.Free 3. Вызывать форму модально https://www.cyberforum.ru/blog... g4873.html Большое спасибо, будем думать. 0

@Case-Man 167 / 107 / 22 Регистрация: 02.01.2012 Сообщений: 596
	28.10.2017, 09:42	8
	Ещё можно решать проблему "в лоб" - каждый раз менять Name, например, добавлять порядковый номер 0