我想把TClientDataSet当作一个内存数据表,怎么设置才能让它可写。!!cdsClient: TClientDataSet;
with cdsClient do
begin
FieldDefs.Add('name', ftFixedChar,16,TRUE);
FieldDefs.Add('sex', ftInteger,0,TRUE);
CreateDataSet();
end;
with cdsClient do
begin
FieldDefs.Add('name', ftFixedChar,16,TRUE);
FieldDefs.Add('sex', ftInteger,0,TRUE);
CreateDataSet();
end;
解决方案 »
- dll中给var pchar赋值出现乱码?请大侠指教!
- 怎么用delphi调用触发器
- 发现delphi7的一个致命bug
- 为什么登陆窗口用 showmodal 方法 显示不出来 ,一晃就过?急!!1
- 为何打印机未连接时,程序就报错
- 如何将jpg的图片加入到sql server 的 image类型的字段中阿,使用ado
- 一个文本文件里面的换行问题!急急!
- 如何删除数据库中的字段(用delphi)
- 调用API函数,如何把DELPHI 的字符串转化 Pchar 类型
- 免费赠送完全仿Neoplant和“电子日记本”的Delphi窗体模块
- 在哪可以下载 DBGridEh 控件
- 高手请进:那里有使用起来很方便的TREELIST或TREEVIEW控间吗?
F_CData:TClientDataset;
begin
F_CData := TClientDataset.Create(nil);
F_CData.FieldDefs.Add('产品名称',ftString, 30, False);
F_CData.FieldDefs.Add('本月实际',ftString, 20, False);
F_CData.FieldDefs.Add('本季累计',ftString, 20, False);
F_CData.FieldDefs.Add('本年累计',ftString, 20, False);
F_CData.CreateDataSet;
F_CData.Open; while not AdoDatasetOut.Eof do begin
F_CData.Append;
F_CData.Fields[0].AsString := AdoDatasetOut.Fields[0].Value;
F_CData.Fields[1].AsString := AdoDatasetOut.Fields[1].Value;
F_CData.Fields[2].AsString := AdoDatasetOut.Fields[2].Value;
F_CData.Fields[3].AsString := AdoDatasetOut.Fields[3].Value;
AdoDatasetOut.Next;
end;
end;