文件名称：非类型文件-京东应用架构设计
文件大小：7.56MB
文件格式：PDF
更新时间：2024-06-30 04:57:29
Delphi 2010 语法
E.2.2 非类型文件 非类型文件直接使用 file声明。非类型文件变量不存在文件类型，所以其后面不用接 of...。 除 write与 read 外，适用于类型文件的所有例程均适用于非类型文件。Delphi另外 提供了两个例程供读写非类型文件：BlockRead、BlockWrite。二者的声明为： function BlockRead(var F:file;var buf;count:Integer):Integer; function BlockWrite(var F:file;const buf;count:Integer):Integer; BlockRead从 F中读取数目为最多 count字节的内容并存储至 Buf所指向的内存中。 BlockWrite将 Buf中最多 Count字节的内容写入 F中。 var sourcename,targetname:string; FSource,FTarget:file; Buf:PAnsiChar; begin try writeln('请分别输入文件名：'); Readln(sourcename); Readln(targetname); AssignFile(FSource,sourcename); AssignFile(FTarget,targetname); Reset(FSource); Rewrite(FTarget); while eof(FSource) = False do begin BlockRead(FSource,Buf,1); BlockWrite(FTarget,Buf,1); end; CloseFile(FSource); CloseFile(FTarget); except writeln('error'); end; writeln('文件操作完毕'); readln; end.