Проверка существования TEdit

[John_chek]

Добрый день! Я динамически создаю TEdit, как проверить создан он или нет?

[Stilet]

Смотря как создаеш.
Можно поискать по имени, можно по всем контролам в родителе.

[John_chek]

Создаю так:

 
  FindEdit : TEdit;
...
   FindEdit := TEdit.Create(fstart);
    with  FindEdit do
      begin
      Parent := Fstart;
      left := 61;
      width := DBGridEh1.Columns[1].Width;
      Top := FStart.Height - 90;
      OnChange :=  find;
      OnKeyDown := OnKeyDownFind;
      OnExit := findOnExit;
      SetFocus;
      SelText := key;
      end;

Если Tedit не создан, а я пытаюсь проверить его видимость, ругается соответственно:
if FindEdit.visible = true then - вот здесь ругается

[mihali4]

Функция CREATE возвращает либо указатель на созданный объект, либо NIL, если удача не постигла...
А что, так трудно проверить в момент создания?

[John_chek]

Нет, объект создается нормально, а как проверить до того, пока он еще не создан, что его нет?
Короче говоря, при закрытии формы карточки, нужно прятать Edit, а если он еще не создан то ругается!

[mihali4]

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

Нет, объект создается нормально, а как проверить до того, пока он еще не создан, что его нет?
Короче говоря, при закрытии формы карточки, нужно прятать Edit, а если он еще не создан то ругается!

Что именно вы хотите проверить?
Что не существует объекта с таким именем или что не существует ни одного объекта данного класса?
Определитесь с вопросом. Для начала...

Короче говоря, при закрытии формы карточки, нужно прятать Edit, а если он еще не создан то ругается!

Ну так сделайте проверку перед закрытием. Как - вам уже написали... FindComponent...
Или как Мутабор подсказал (ниже).
Или заведите булевскую переменную - флажок, который будете устанавливать при создании. Если так вам удобнее покажется.

[John_chek]

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

Что именно вы хотите проверить?
Что не существует объекта с таким именем или что не существует ни одного объекта данного класса?
Определитесь с вопросом. Для начала...

Мне нужно проверить, что FindEdit еще не создан!

[mutabor]

Попробуй так:
if FindEdit <> nil then if FindEdit.visible = true then ;

[John_chek]

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

Ну так сделайте проверку перед закрытием. Как - вам уже написали... FindComponent
Или заведите булевскую переменную - флажок, который будете устанавливать при создании. Если так вам удобнее покажется.

Именно проверку перед закрытием я и делаю. FindComponent - вот про это я и спрашивал!

[John_chek]

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

Попробуй так:
if FindEdit <> nil then if FindEdit.visible = true then ;

    if FindEdit <> nil then
    FindEdit.visible := false;

Так тоже работает Спасибо!!