end;

end;

其中CreateBackup过程用以改变需备份文件的扩展名。IsReadOnly 用以判断文件属性。　

4.5 文件打印　

　　在Delphi中，文件打印有两种方式：

　　1. 将文件变量分配给打印机，用此变量名创建或打开文件后， 往此文件变量写入的任何文本都视为向打印机输出，以下过程可实现文件的打印。　

　　procedure TEditForm,Print1Click(Sender: TObject);

var

Line: Integer;

PrintText: System.Text;

begin

if PrintDialog1.Execute then

begin

AssignPrn(PrintText)

Rewrite(PrintText);

Print.CanvasFont := Memo1.Font;

For Line := 0 to Memo1.Lines.Count - 1 do

Writeln(PrintText,Memo1.Line[line];

System.Close(PrintText);

end;

end;　

2. 利用Printers单元中定义的TPrinter对象进行文件打印，本章例程采用这种方法打印文件。　

4.5.1 TPrinter对象　

　　TPrinter对象可调用Windows的打印机，在Printer 单元中定义了TPrinter 的实例Printer，用户可直接使用。

　　调用TPrinter的BeginDoc方法可开始一项打印工作，调用EndDoc 方法可结束一项已成功发送给打印机的工作。如果在发送过程中出现问题或用户想中途终止打印工作，可调用Abort方法。

　　通过检查Printing属性可测试当前是否有打印工作，如果打印工作被终止，Abort属性为真。

　　Canvas属性代表打印表面，Brush,Font,Pen属性可决定打印字体或图像的特征。

　　Printers属性中包含着已安装的打印机列表，PrinterIndex 属性是当前选择的打印

机，Fonts属性中有当前打印机支持的字体。Orientertion属性可决定打印方向。

　　PageHeight,PageWith中包含着当前的高度和宽度。PageNanber为当前页的值。

　　设置Title属性可决定在Windows打印管理器或网络中出现的文本。　

4.5.2 TPrintDialog打印对话框　

　　TPrintDialog部件显示一打印对话框。用户在对话框中，可以选择打印机、打印页数、打印份数。当用户选择对话框中的Setup按钮，则出现打印设置对话框。

　　调用Execute方法显示打印对话框。如图4.12。使用Option属性可设置打印对话框显示的形式。Options的设置如表4.5所示。

　　PrintRange属性可定义打印的范围。如果PrintPage的值是prPageNums，则可以设置FromPage和ToPage属性来确定打印范围。设置MinPage,MaxPage属性可限制用户的打印范围。　

表4.5 打印对话框的Option属性的取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

取值　　　　　　　　　　　　　　含义

──────────────────────────────────────

PoHelp 如果是真值，对话框出现帮助按钮。

PoPageNums 如果是真值，页数按钮有效，用户可以设置打印范围。

PoPrintToFile 如果是真值，文件打印检查框将出现在对话框中，用户可以选

择文件打印。

PoSelection 如果是真值，选择按钮有效， 用户可打印文件中所选择的文本。

PoWarning 如果是真值，在打印机尚未安装时，用户选择OK 按按钮将出

现警告信息。

PoDisablePrinttoToFile 如果是真值，而PoPrintToFile亦是真值时，当对话框出现时，文

件打印对话框将无效。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

       本章例程是利用Printer的画布进行文本打印的。用户选择打印菜单后，将弹出打印对话框，用户可设置各种参数。当用户选择打印按钮后，打印工作进行发送，此时将弹出打印取消对话框，见图4.13， 用户可中止打印工作。有关打印和打印取消的代码如下： 　

procedure TEditForm.Print1Click(Sender: TObject);

var

DistanceLine,Line: Integer;

PrintText: System.Text;

begin

if PrintDialog1.Execute then

begin

Printer.Canvas.font := Memo1.Font;

DistanceLine := Trunc(1.5*FontDialog1.font.size);

OpenPrintCancelDialog;

Printer.BeginDoc;

for line := 0 to Memo1.Lines.Count - 1 do

begin

Printer.canvas.textout(0,DistanceLine*Line,Memo1.lines[Line]);

end;

Printer.EndDoc;

BtnBottomDlg.free;

end;

end;

　

procedure TEditForm.OpenPrintCancelDialog;

begin

BtnBottomDlg := TBtnBottomDlg.Create(Application);

BtnBottomDlg.show;

BtnBottomDlg.canvas.Brush.Color := clActiveBorder;

BtnBottomDlg.canvas.TextOut(50,20,'Print'+FileName);

BtnBottomDlg.canvas.TextOut(30,40,'if you want to

stop, please choice Cancel Button.');

end;