有没有能把dbgrid的内容saveas另存出来的办法,或者别的办法,能满足dbgrid的功能并能另存的也行!请教大家!
解决方案 »
- 100高分求解菜鸟问题,千万别错过
- 请指教:如何定义变量,得到数据类型为decimal的字段的值?
- 急~~~请各位帮忙看看下面程序!!
- 关于IdFTP控件的问题!!!
- 安裝了兩個Win98(簡体和繁体)以前是簡体, 安裝繁体后, 系統啟動時系統選擇菜單沒有以前簡体選項,怎么辦??急!!!
- 我是Delphi的新手,谁有关于线程的简单例子或者基本结构贴一贴了!
- 为什么我在17寸显示器上做的程序在15寸上界面就乱了呐?帮我!
- 一个关于组件显示的问题?
- 谁讲讲TSteam的用法!
- 能用程序使WINDOWS NT "开始菜单" 无效或隐藏吗?
- 关于回车、换行与回车换行的问题,大家都来发表一下高见啊!!!顺便散分!!!!
- 请问有什么办法列出NT下所有网卡的列表并取得它们的IP地址?
如果不是,就循环字段,循环记录,存储
你知道了Dataset,还有什么不能SaveAs的?
procedure SaveData(qrData:TQuery;strFile:String);
var
f:TextFile;
cc:Integer; //Column Counter
begin
Assign(f,strFile);
Rewrite(f);
with qrData do
begin
DisableControls;
First;
while not Eof do
begin
For cc:=0 to FieldCount-1 do
Write(f,Fields[i].AsString);
Next;
end;
First;
EnableControls;
end;
Close(f);
end;
然后将它的dataset属性指向dbgrid1.datasource.dataset
在放上一个ClientDataSet组件
将ClientDataSet.Data:= DataSetProvider1.Data
这样就可以使用CLientDataSet.SaveToFile方法了
不用ClientDataSet是不能使用saveToFile方法的