[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;