Delphi TADODataSet Save To File Load From File

TADODataSet 可以將資料庫 Table 保存到檔案中
放入 TADODataSet、TDataSource、TDBGrid

procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet := ADODataSet1;
  DBGrid1.DataSource := DataSource1;
  DBGrid1.Align := alClient;
  with ADODataSet1 do
  begin
    ConnectionString :=
      'FILE NAME=C:\Program Files\Common Files\System\Ole DB\Data Links\DBDEMOS.udl';
    CommandText := 'select * from country';
    Active := True;
    // 存入檔案
    SaveToFile('country.adtg');    
    // 關掉連線
    Close; 
    ConnectionString := ''; 
    CommandText := '';
    // 從檔案中載入資料
    LoadFromFile('country.adtg');
  end;
end;