如何将打印内容输出到外界文本里面去？

Question

我现在查询出来一组数据  想要输往外面一个text 中去  比如 C:\1.text  怎么办?
请各位大侠指点.用什么类来完成?偶把所有分都贡献上

Answer 1

没人回答? 郁闷啊
我自己都觉得很简单.用个什么类来实现 output  就行了可是我不知道啊

Answer 2

问题不清,怎么回复!1:如果你是用query查询的.
var
i:integer;
strlist:tstringlist;
str:string;
begin
strlist:=tstringlist.create;
query.first;
while not query.eof do
begin
   str:='';
   for i:=0 to query.fieldcount-1 do
    begin
       str:=str+' '+query.Fields.Fields[i].AsString
    end;
   query.next;
   strlist.add(str)
end;
strlist.SaveToFile('C:\1.text')
strlist.free;
end;2.如果你的结果直接存在其他控件中如memo或listbox等那就简单了可以直接调用SaveToFile就行了.

Answer 3

三友的对，就是建立一个Tstring或Tstringlist类型的变量，把数据循环导入list中，然后调用strlist.SaveToFile('C:\1.text')就可以了

Answer 4

回复人： sailorhare() ( ) 信誉：100  2004-09-16 11:13:00  得分: 0  
 
 
   谢谢各位老大捧场啊!!!!!!!!!!!! 小弟感恩戴德.痛哭流涕
 
 
-------------------------
我上面的一些疑问，你还没有指明。我们的思路是否正确？

Answer 5

应该可以 我用的是query 查询.还有一个问题.我输出到notepad 中去后 怎么 直接调出来 
或责说 开始那个notepad  并不存在 我怎么创建........ 让后在最后在 界面显示出来
各位大大  指点

Answer 6

notepad不用创建，直接输出为.txt文件就可以了，不用打开文本编辑器~

Answer 7

添加一 memo控件,
然后 memo.lines.loadfromfile(C:\1.txt);就可以显示了.

Answer 8

memo ? 
memo 最后在界面上要显示的 .我需要的是 点击 打印的按钮 所以的东西 输出到 text 中去
然后出现这个 text  就是说调用 windows 的 notepad

Answer 9

用notepad 打开文件用下面的语句
WinExec('notepad C:\1.txt,SW_SHOWNORMAL);