L lastgood Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #1 如何实现Strings（大量的，有许多页的）的打印预览？
2 20126301 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #2 能否将问题说清楚点..? strings,什么大量的有许多页的? 你要怎样的打印预览结果呢~ ?
S sherman Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #3 你的strings中有没有分行符呢 用tmemo, memo.lines.text := strings
L lastgood Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #4 其实是这样的，我读出数据库的资料，整理为许多以分行符分隔的字串，想在打印机上输出， 又可以在打印前预览。
梅 梅游刃 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #6 既然strings 是来自数据库的，为什么不可以做一个名册输出呢？ 也可以做本文输出吧！
L lastgood Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #7 我的要求：根据用户选择的字段，再生成字串（用户动态设定的），哪有控件？
S swordwater Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-28 #9 看看这个例子，是不是你想要的效果. var OutFile :TextFile; sList :TStrings; I :Integer; begin AssignPrn(OutFile); Rewrite(OutFile); for I :=0 to sList.Count - 1do WriteLn(OutFile,sList.Strings ); closeFile(OutFile); end;
看看这个例子，是不是你想要的效果. var OutFile :TextFile; sList :TStrings; I :Integer; begin AssignPrn(OutFile); Rewrite(OutFile); for I :=0 to sList.Count - 1do WriteLn(OutFile,sList.Strings ); closeFile(OutFile); end;
