能否给个小例子?
解决方案 »
- Delphi程序退出时报错'Access violaction at address in module'
- Delphi2010一个无法忍受的BUG!!
- 今天弄明白了 Windows 快捷键的来由, 很高兴!
- 一个基础的字符串操作的问题,望高手指教
- 请问一个关于DELPHI中扫描的问题?
- 一个界面要求高,布局合理商业软件如何布局耳目一新的主窗口和子窗口,请给出建议,来者有分??
- 如何用BDE数据集组件连接SQLSERVER和ACCESS?请详细告之,100分敬上!
- 请问如何得到系统数据源名和ODBC里数据库的驱动程序?
- 誰有關于圖書管理方面的FORM?
- 在没有标题栏的窗体中,怎样移动窗体?
- 请教关于TMS 的TIWDBAdvWebGrid组件的问题?急!
- 请教各位!如何实现根据用户输入的时间段内进行查询!!
i : integer;
begin
Printer.BeginDoc;
for i := 1 to DataSet.RecordCount do
begin
DataSet.RecNo := i;
with Printer.Canvas do
begin
TextOut(x, y, DataSet.FieldByName('字段1').AsString);//控制x,y值
......
TextOut(x, y, DataSet.FieldByName('字段n').AsString);//控制x,y值
end;
end;
Printer.EndDoc;
end;