AssignPrn过程
Printers
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;
AssignFile( LogTF, 'log/log.txt');
{检查日志文件是否存在}
if FileExists( LOGFILE ) then
Append( LogTF )
else
Rewrite( LogTF );
try
{向文件写入一行字符串}
Writeln( LogTF, LogMsg+'{' , DateTimeToStr(Now)+'}' );
finally
CloseFile( LogTF );
end;