dbgrid,datasoure,ClientDataSet的简单应用

uses db,midaslib;
//没有midaslib会出现缺少midas.dll，就算系统注册midas.dll,运行程序还是会报内存错误；

procedure TForm1.FormCreate(Sender: TObject);
var
  cds : TClientDataset;
begin
  cds := TClientDataset.Create(nil);
  with cds.FieldDefs do
  begin
    Add(‘窗口‘,ftstring,12,true);
    Add(‘游戏帐号‘,ftstring,20);
    Add(‘大区‘,ftstring,8,false);
    Add(‘刷新时间‘,ftstring,10,false);
  end;
  cds.CreateDataSet;
  cds.open;
  datasource1.DataSet := cds;
  dbgrid1.DataSource := DataSource1;
end;