AssignFile过程和AssignPrn过程

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2010-12-16 22:37:27

procedure AssignFile(var F; FileName: string);
AssignFile使一个外部文件名与一个文件变量想联系。
为了避免范围冲突,在Delphi中AssignFile函数代替Assign函数。 然而,为保持向下兼容Assign仍然有效。F是一个任意文件类型文件变量,FileName是一个字符串类型表达或Pchar类表达(如果扩充语法是容许的)。所有对F的进一步操作都是对应于外部文件名。在调用AssignFile以后,F与外部文件名关联,直到F被关闭。当FileName参数是空的,F关联标准输入或输出文件。当分配一个空文件名,在调用了Reset(F)之后,F参考标准输入文件,类似,在调用了Rewrite(F)后,F将参与标准输出文件。在一个文件变量已经打开之后能能用AssignFile。

 var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then          { 显示打开对话框 }
  begin
    AssignFile(F, OpenDialog1.FileName);   { 在对话框中选择文件 }
    Reset(F);
    Readln(F, S);                          { 读文件的第一行 }
    Edit1.Text := S;                       { 赋值到Edit1 }
    CloseFile(F);
  end;
end;


procedure AssignPrn(var F: Text);
AssignPrn将一个文本文件变量分配给指针。调用AssignPrn促使所有信息写到F,这个文本文件变量将被发送到指针。当变量被分配后,应用程序必须调用Rewrite过程。
当用户点按窗体上的按钮时,这个代码在打印机上打印一行文本。

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, ‘Print this text’);
  System.CloseFile(MyFile);
end;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论