DBGrid连接的是DataSource,DataSource有DataSet。DBGrid里的数据都是从DataSet来的。 循环DataSet即可。 AssignFile(ff,"d:\test.txt"); //文件操作 Rewrite(ff); //重写 DataSet.First; //移动指针 while not DataSet.Eof do begin for i := 0 to DataSet.Fields.Count - 1 do begin Write(ff,DataSet.FieldValues[i].AsString); Write(ff,#9); //加入TAB end; Write(ff,#13#10); //加入回车换行 end; CloseFile(ff);
这样不可以的话就自己写代码去操作了
循环DataSet即可。
AssignFile(ff,"d:\test.txt"); //文件操作
Rewrite(ff); //重写
DataSet.First; //移动指针
while not DataSet.Eof do begin
for i := 0 to DataSet.Fields.Count - 1 do begin
Write(ff,DataSet.FieldValues[i].AsString);
Write(ff,#9); //加入TAB
end;
Write(ff,#13#10); //加入回车换行
end;
CloseFile(ff);
不仅提供导入到TXT,而且还提供到EXcel里面的导入http://www.2ccc.com有下载