如何将一个QUERY查询出的数据存入到一个文本文件中去？？

Mark_zheng 2001-12-10 08:07:50

如题！

请给出写入到文本的详细的源代码。。。

...全文

158 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

mengbo 2001-12-10

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
fileN: TextFile;
i: integer;
str: string;
begin
try
AssignFile(fileN,'c:\test.txt');
if not FileExists('c:\test.txt') then
rewrite(fileN);
Query1.open;
Query1.First;
while not Query1.Eof do
begin
str := '';
for i := 0 to Query1.FieldCount - 1 do
str := str + Query1.Fields[i].AsString + ' ';
Append(fileN);
Writeln(fileN,str);
Query1.Next;
end;
finally
CloseFile(fileN);
end;

end;
要自己取文件名的话，用一个edit来写文件名，然后代替‘c:\test.txt'即可

安优小青和他的程序生活 2001-12-10

打赏
举报

用asignfile函数和writeln函数
程序中写入文本文件

yxjjx 2001-12-10

打赏
举报

同意楼上的

Mark_zheng 2001-12-10

打赏
举报

ok !

thank you !

chenjiong 2001-12-10

打赏
举报

动态生成一个memo，再用SaveToFile 。
其实就是要有一个中转，用QUERY直接保存文件好象是不行的。

Mark_zheng 2001-12-10

打赏
举报

继续啊！

如果分你们觉得不够，我给你们再加！可以吧！

Mark_zheng 2001-12-10

打赏
举报

还想问一下，如何解决数据在文本中的对齐问题！

Mark_zheng 2001-12-10

打赏
举报

如果我不想要么MEMO呢？？

outer2000 2001-12-10

打赏
举报

memo1.Lines.SaveToFile

Mark_zheng 2001-12-10

打赏
举报

谢谢chenjiong的代码！呵呵！

但是我想直接保存为文本，文本名称由我定！不直接显示在MEMO中可以吗？？

xiaoxiao197821 2001-12-10

打赏
举报

...

chenjiong 2001-12-10

打赏
举报

var str:string;
i:integer;
begin
While not Query1.Eof do
begin
Str:='';
For i:=0 to Query1.Fields.Count-1 do
begin
Str:=Str+Query1.Fields.Fields[i].DisplayName+'： '+Query1.Fields.Fields[i].AsString+' ';
end;
str :=str+chr(13); //换行
Memo1.Lines.Add(Str);
Query1.Next;

这是连把字段名都一起加支memo中去的，如果只要加值，用Query1.Fields.Fields[i].AsString这一节就行了。