如何把DBGrid中的数据导出成一个二进制文件,DBGrid中的数据包括字符串,整数,实型数等,希望有源码或者例子??????
解决方案 »
- DBgridEh + ClienDataSet 点击标题,自动排序的问题!
- 0分帖子~~~
- 在paradox的数据库中的sql语句里是否有四舍五入的函数
- sql2000打了SP4后的问题,十万火急
- 用tstoredproc调用存储过程,到底那里错?
- 问个关于"添加记录"的问题
- 使用Applyupdate之后不能进行更新!!A user transaction is already in progress.
- 一个毕设很麻烦的问题就是用delphi怎么编程是关于计算机组成原理数据通路的实验
- delphi2010开发的程序,本地没问题,但到别的机子上提示错误,怎么回事?
- double类型的变量如何定义保留的小数位数,例如25.74145保留3位小数为25.741
- 求助!怎样使edit的内容从右到左显示?
- 求解:Win98系统中有时在DBGRID中使用不了中文输入法,有没有什么方法可以解决。
http://bbs.2ccc.com/topic.asp?topicid=18711
procedure TForm1.Button1Click(Sender: TObject);
begin
DbgridToTxt(dbgrid1);
end;procedure Tform1.DbgridToTxt(source:Tobject);
var
filename:Textfile;
Dataset:Tdataset;
titlestr,valuestr,tempstr:string;
counter:integer;
begin
if (source is Tdbgrid)then
Dataset:=Tdbgrid(source).DataSource.DataSet
else
Dataset:=TDataset(source);
if ((Dataset.IsEmpty)or(not Dataset.Active))then
exit else
begin
Dataset.DisableControls;
Dataset.First;
if savedialog1.Execute then
begin
assignfile(filename,savedialog1.FileName);
rewrite(filename);
for counter:=0 to Dataset.FieldCount-1 do
titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
titlestr:=trim(titlestr);
writeln(filename,titlestr);
while not Dataset.Eof do
begin
valuestr:=';
for counter:=0 to Dataset.FieldCount-1 do
begin
tempstr:=Dataset.Fields[counter].Text;
valuestr:=valuestr+char(9)+tempstr;
end;
valuestr:=trim(valuestr);
writeln(filename,valuestr);
Dataset.Next;
end;
closefile(filename);
end;
Dataset.EnableControls;
end;
end;