您好,欢迎光临! 登陆 注册
xxxx-xxxxxxxx
File文件数据类型
File文件数据类型,文件读写
售价:2 市场价:¥8
节省¥6 可获得:0积分
品牌:梦丽 货号:3254254
库存:999999 重量:23.98 kg
可选套餐:
套餐1套餐2
购买数量:
-
+
相关商品
File关键字用于将变量定义为二进制文件,通常是写入和从存储设备读取的文件。
版本1
给出一个基本的无类型文件。这样的文件只能使用块读和块写来读取和写入。基本数据类型是字节。
AssignFile必须用于获取文件句柄。
然后必须使用重置或重写打开文件,以便进行读写访问。这些指定了由块读和块写例程所看到的组成一个“记录”的字节数。

版本2
定义具有基本数据类型的文件。例如,简单类型(如char)或复杂类型(如Record)。
AssignFile 必须用于获取文件句柄。
然后必须使用重置或重写打开文件,以便进行读写访问。必须使用读和写来访问文件。
在所有情况下,类型必须是固定大小的,并且对文件的访问必须以该类型的单元为单位。

示例代码:对非类型化二进制文件的读写访问,如下:
var
  myFile    : File;
  byteArray : array[1..8] of byte;
  oneByte   : byte;
  i, count  : Integer;

begin
  // Try to open the Test.byt file for writing to
  AssignFile(myFile, 'Test.byt');
  ReWrite(myFile, 4);   // Define a single 'record' as 4 bytes

  // Fill out the data array
  for i := 1 to 8 do
    byteArray[i] := i;

  // Write the data array to the file
  BlockWrite(myFile, byteArray, 2);   // Write 2 'records' of 4 bytes

  // Close the file
  CloseFile(myFile);

  // Reopen the file for reading
  Reset(myFile, 1);   // Now we define one record as 1 byte

  // Display the file contents
  while not Eof(myFile) do
  begin
    BlockRead(myFile, oneByte, 1);   // Read and display one byte at a time
    ShowMessage(IntToStr(oneByte));
  end;

  // Close the file for the last time
  CloseFile(myFile);
end;

运行结果如下:
   1
   2
   3
   4
   5
   6
   7
   8

视频教程下载地址:




暂无评论
联系方式:
留言内容:
*
验证码:
*