Fórum Duvida, ClientDataSet #346124

procedure TForm1.FormCreate(Sender: TObject);
begin
   if FileExists(ExtractFilePath(Application.ExeName) + ´Arquivo.DB´) then
      ClientDataSet1.LoadFromFile(ExtractFilePath(Application.ExeName) + ´Arquivo.DB´)
   else
      ClientDataSet1.CreateDataSet;

   ClientDataSet1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ClientDataSet1.SaveToFile(ExtractFilePath(Application.ExeName) + ´Arquivo.DB´);
   ClientDataSet1.Close;
end;

procedure TForm1.btnInsertClick(Sender: TObject);
begin
   // Insert
   ClientDataSet1.Open;
   ClientDataSet1.Append;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
   // Save
   if ClientDataSet1.State in [dsInsert, dsEdit] then
   begin
      ClientDataSet1.Post;
      ClientDataSet1.SaveToFile(ExtractFilePath(Application.ExeName) + ´Arquivo.DB´);
   end;
end;

procedure TForm1.btnEditClick(Sender: TObject);
begin
   // Edit
   if ClientDataSet1.Actve then
      ClientDataSet1.Edit;
end;

procedure TForm1.btnInsertClick(Sender: TObject);
begin
   // delete
   if ClientDataSet1.Active then
      ClientDataSet1.Delete;
end;

procedure TForm1.btnCancelClick(Sender: TObject);
begin
   // cancel
   if ClientDataSet1.State in [dsInsert, dsEdit] then
      ClientDataSet1.Cancel;
end;