小编Chr*_*ane的帖子

我正在将文本文件读入记录数组.文本文件中的部分数据是程序等级和测试等级.我可以声明一个整数数组来折叠程序或测试值作为记录中的字段吗？如果是,那么如何访问字段中的各个程序值？例如,我可以像这样声明记录吗？如果是这样,我如何输入或访问来自测试[3]的数据？

nametype = record
  first : string[10];
  mi : string[3];
  last : string[30];
end;
stype = record
  id : integer;
  name : nametype;
  prog : array[1..10] of integer;
  test : array[1..3] of integer;
  progave, quizave : real;
  average : double;
  grade : char;
end;
sarraytype = array[1..100] of stype;
var
  student : sarraytype;

所以我猜我被困在哪里读到这些数组.到目前为止,对于我的阅读,我有:

procedure TstudentData.openButtonClick(Sender: TObject);
   begin
     var i : integer;
     if open.execute then
     begin
      assignfile(inf,open.FileName);
      reset(inf);
      i := 1;
      while not eof(inf) do with student[i] do
      begin
         readln(inf, …