从文本文件中读取记录到Pascal中的数组

您已在代码块中声明了两个类型为Text（df和f）的变量var。

您可以df使用以下几行打开：

assign(df,filename);
reset(df);

然后，您从几行中读取f（不是您在上面打开的文件），例如这一行：

Read (f, num);

有趣的是，尽管您从未在循环中使用过它，但实际上您实际上已经设法关闭了您真正打开的文件：

close(df);

解决所有这些问题的方法是删除f或的声明df，然后通过更正代码以使用剩余text变量来修复编译器错误。（这里有两个重要的教训是

1. 只声明您实际需要的变量。
2. 使用您声明的变量。

您的循环也是无效的，因为您使用while not eof的没有提供要测试结束的文件。您的循环应改为读取while not Eof(df) do。

最好在前缀类型前加上典型的命名约定T。它清楚地表明它是类型而不是变量，并允许您更轻松地阅读代码。例如，我将您对的定义更改Data为TRoomData，并相应地更改其他类型的声明。这是一个示例-注意，TRoomData现在有一个名为Roomtype的字段（成员）TRoom：

TRoomData = record
  Room: TRoom;
  m: Integer;
end;

TRoom 被定义为

TRoom = record
  Num: Integer;
  Bed_num: Integer;
  Price: Integer;
  Status: Boolean;
  H: THistory_Booking;
end;

依此类推。这使您可以更清楚地编写代码：

var
  RoomData: TRoomData;
begin
  RoomData.Room.Num := 1;
  RoomData.Room.Price := 50;
  // etc.
end;

话虽如此，您的文件不包含text，因此首先使用的是错误的文件类型df: Text。您应该使用File of TRoomData，一次允许读取和写入整个记录。这是一个这样做的例子：

var
  DF: File of TRoomData;
  RoomData: TRoomData;
  i: Integer;
const
  DataFileName = 'D:\TempFiles\RoomData.dat';

编写它：

// Put some data into the record
RoomData.Room.Num := 1;
RoomData.Room.Bed_num := 1;
RoomData.Room.Price := 40;
RoomData.Room.Status := True;
RoomData.Room.H.B_num := 1;
for i := 1 to Max do
begin
  RoomData.Room.H.B_Mat[1].Guest := Format('Guest %d', [i]);
  RoomData.Room.H.B_Mat[1].S_Date.Year := 2014;
  RoomData.Ro.H.B_Mat[1].S_Date.Month := i;
  RoomData.Ro.H.B_Mat[1].S_Date.Day := i;
end;

// Write it out to the file
AssignFile(DF, DataFileName);
try
  Rewrite(DF);
  Write(DF, RoomData);
finally
  CloseFile(DF);
end;

读回去：

AssignFile(DF, DataFileName);
try
  Reset(DF);
  Read(DF, RoomData);
finally
  CloseFile(DF);
end;

（或者，更好的是：如果您正在使用的Pascal版本支持它，请远离旧的文件I / O例程，而开始使用它TFileStream。）

最后但并非最不重要的一点是，学习正确格式化代码。它使调试和维护变得更加容易，并且当您可以清楚地遵循执行路径时，它也使阅读变得更加容易。