当前位置: 源码素材网 » Delphi源码 » 文件操作 » 详情页

Delphi打开TXT文本文件并显示内容打印出来

Delphi显示文本文件的内容,并将文本文件内容打印出来,打印TXT文件的内容,比较基础和实用的Delphi打印实例,将文本文件内容先显示在文本框中,然后打印出来。Delphi7项目的源代码,仅供参考。
  Printer.BeginDoc;
  font:=Memo1.font;
  X := GetDeviceCaps( handle, LOGPIXELSX );
  TOP := GetDeviceCaps( handle, LOGPIXELSY );
  GetTextMetrics(printer.canvas.handle,tm);
  THeight:=tm.tmHeight+tm.tmExternalLeading;
  PgCount:=(Printer.PageHeight-Top*2) div THeight;
  for y:=0 to Memo1.lines.count-1 do
  begin
   npage:=Y div pgCount;
   sd:=Y mod pgCount;
   if npage=Printer.PageNumber then
   begin
   Printer.NewPage;
   end;
   TextOut(x, sd * THeight +top ,Memo1.Lines.Strings[y]);
  end;

  • 相关标签:文本文件 打印文字
  • 调试环境:Delphi7+
  • 文件大小:7.01K
  • 资源评级:
  • 更新时间:2019-08-13
  • 相关链接:暂无演示

源码测试截图:

Delphi打开TXT文本文件并显示内容打印出来运行截图

相似源码:文本文件 打印文字 Delphi源码下载:Delphi打开TXT文本文件并显示内容打印出来 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi打开TXT文本文件并显示内容打印出来”源代码侵犯了您的权益,请尽快告诉我们。