[gewasop]

Как такое реализовать? Пример бы. Например, чтобы я нажимал на кнопку и появлялись компоненты. Например FDQuery или DataSource.

[gewasop]

А также интересует их уничтожение.

[lmikle]

Ну так и напиши код, который их будет создавать...

Код:

var
  FDQuery : TQuery;
  FDataSource : TDataSource;

procedure TForm1.Button1Click(Sender : TObject);
begin
  if not Assigned(FDQuery) Then FDQuery := TQuery.Create(Nil);
  if not Assigned(FDataSource) Then FDataSource := TDataSource.Create(Nil);
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
  if Assigned(FDQuery) Then FreeAndNil(FDQuery);
  if Assigned(FDataSource) Then FreeAndNil(FDataSource);

end;

[icWasya]

Вот сразу проблемы.

Код:

var
  FDQuery : TQuery;
  FDataSource : TDataSource;

В этом случае начальное значение будет неопределено, и поэтому IfAssigned может выдать истину, даже если туда ничего не присвоили. Поэтому надо делать начальную инициализацию

Код:

var
  FDQuery : TQuery:=nil;
  FDataSource : TDataSource=nil;

, или сделать эти переменные приватными полям формы, тогда они будут гарантировано обнулены.
Далее.

Код:

  if Assigned(FDQuery) Then FreeAndNil(FDQuery);
  if Assigned(FDataSource) Then FreeAndNil(FDataSource);

Внутри FreeAndNil делается проверка переданного параметра на nil, поэтому внешняя проверка не нужна.

Код:

  FreeAndNil(FDQuery);
  FreeAndNil(FDataSource);

А так же Жизнь и смерть в режиме run-time

[angvelem]

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

...В этом случае начальное значение будет неопределено...

Вы не в курсе, что глобальные переменные ВСЕГДА инициируются 0?

[gewasop]

Попробовал. Получаю ошибку.

Когда делаю только...

Код:

if not Assigned(TestQuery) Then 
TestQuery := TestQuery.Create(Nil);
if not Assigned(TestDataSource) Then 
TestDataSource := TestDataSource.Create(Nil);

...ничего не наблюдаю(компоненты ведь не визуальные). Вот и решил проверить:

Код:

var
  fcr_tb: Tfcr_tb;
    TestQuery : TFDQuery=nil;
    TestDataSource : TDataSource=nil;

procedure Tfcr_tb.Button1Click(Sender: TObject);
begin
if not Assigned(TestQuery) Then TestQuery := TFDQuery.Create(Nil);
if not Assigned(TestDataSource) Then TestDataSource := TDataSource.Create(Nil);
TestQuery.Connection := fdm.FDConnection1;
TestQuery.SQL.Add('SELECT * FROM MASTERS');
TestQuery.Active := True;
TestDataSource.DataSet := TestQuery;
DBGrid1.DataSource := TestDataSource;
end;

[angvelem]

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

[gewasop]

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

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

Blja. Не то скопировал. Изменил. Спасибо. Все работает. Но как я понял, при следующем запуске программы этого компонента уже не будет? А как сделать так, чтобы он оставался?

[angvelem]

Ну и зачем тогда такой гемморой? Может сразу поместить их на форму?

[gewasop]

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

Ну и зачем тогда такой гемморой? Может сразу поместить их на форму?

Заранее их количество неизвестно. Хочу вообще вот что сделать(тематика БД). Возьмем за пример будущую таблицу с именем TEST.
По нажатию на кнопку создаются компоненты FDQuery и DataSource.
В компоненте FDQuery выполняется запрос на создание таблицы в БД, структура которой предварительно формируется. После создания таблицы изменяется запрос в компоненте FDQuery на 'SELECT * FROM TEST'.
Далее FDQuery подключается к DataSource. Далее DBGrid и т.д.

[lmikle]

А не проще просто изменять запрос в существующих (созданных в Дизайн-тайм) компонентах? Или сделать создать формочку и потом создавать готовую форму со всеми компонентами и просто донастраивать ее на соотв. таблицу?