fechar dataset antes de destruir?

Question

Tenho algums formul�rios que possuem alguns componentes TClientDataset.Devo executar o m�todo Close neles antes de destruir o form ?...

Adilsond · Answer

Caro ronaldo, vou basear minha resposta no delphi5.

No diret�rio Source do delphi existe o fonte do componente TClienteDataSet.

TClientDataSet = class(TDataSet)

destructor TClientDataSet.Destroy;
begin
  FSavePacketOnClose := False;
  [color=red]inherited Destroy;[/color]
  ClearSavedPacket;
  FreeDataPacket(FDeltaPacket);
  SetRemoteServer(nil);
  AppServer := nil;
  FMasterLink.Free;
  FIndexDefs.Free;
  FParams.Free;
  FAggregates.Free;
  ClearActiveAggs;
  FActiveAggLists.Free;
  FAggFieldsUpdated.Free;
end;

Ao observar o c�digo voce descobrir� que o mesmo descende do TDataSet e que no seu evento OnDestroy existe uma chamada ao evento OnDestroy do seu Owner.

destructor TDataSet.Destroy;
begin
  Destroying;
  [color=red]Close;[/color]
  SetDataSetField(nil);
  FDesigner.Free;
  if FDataSources <> nil then
    while FDataSources.Count > 0 do
      RemoveDataSource(FDataSources.Last);
  FDataSources.Free;
  FFields.Free;
  FAggFields.Free;
  FAggFields := nil;
  FFieldList.Free;
  FFieldDefList.Free;
  FFieldDefs.Free;
  FConstraints.Free;
  FNestedDataSets.Free;
  inherited Destroy;
end;

Verifique o c�digo referente ao OnDestroy do mesmo. Sua resposta est� neste evento.

F�rum fechar dataset antes de destruir? #264001