Fórum Fechar ClientDatasets #364258

unit Unit2;

interface

uses
  SysUtils, Classes, DB, DBClient;

type
  TModuloDados = class(TDataModule)
    ClientDataSet1: TClientDataSet;
    ClientDataSet2: TClientDataSet;
  private

  public
    procedure FecharClientDataSets;
  end;

var
  ModuloDados: TModuloDados;

implementation

{$R *.dfm}

procedure TModuloDados.FecharClientDataSets;
var
  Cds: TClientDataSet;
  I: Integer;
begin
  for I := 0 to ComponentCount-1 do
    if Components[I] is TClientDataSet then
    begin
      Cds := TClientDataSet(Components[I]);
      if Cds.Active then
        Cds.Active := False;
    end;
end;

end.

 for I := 0 to ComponentCount - 1 do
  if (Components[i] is TClientDataSet) then
    TClientDataSet(Components[i]).Close;