Free Pascal基础文件读写代码编译错误求助

咱们一步步来排查你的Free Pascal代码问题，先对应报错信息拆解问题，再逐个修复，顺便解答你注释里的疑问：

先看编译报错对应的具体问题 #

1. 第22行：Incompatible types: got "personArray" expected "LongInt" #

你的PrintRecords过程里写了setLength(p, ArrayOfPersons);，这里有两个明显错误：

• p是单个Person记录，不是动态数组，SetLength只能用来调整动态数组的长度（比如你定义的personArray类型）。
• SetLength的第二个参数必须是整数（数组的目标长度），你传了整个personArray，类型完全不匹配。

2. 第25行：No default property available 和 Syntax error, ";" expected but "[" found #

这行是p[count] := WriteLinesToFile();，问题也很清晰：

• p是单个Person，不是数组，所以不能用p[count]这种下标访问方式。
• WriteLinesToFile是一个过程（没有返回值），不能把它赋值给变量；而且它需要两个参数（文件对象和Person实例），你调用时一个都没传，完全不符合定义。

还有几个隐含的逻辑/语法问题（没报错但会导致运行失败） #

• Main里调用WriteLinesToFile(myFile);时只传了文件参数，缺了必须的Person参数，编译肯定过不了。
• ReadLinesFromFile里调用PrintRecords([number])，PrintRecords需要的是personArray和整数参数，你传了单个整数，类型完全不匹配。
• 你注释里问age是否应该是Integer：如果年龄是纯数字（比如25），那必须用Integer类型，这样方便后续做数值计算（比如统计平均年龄）；只有当年龄是带格式的字符串（比如"25岁"）时才用String。通常场景下用Integer更合理。

修正后的完整可运行代码 #

program BasicReadWrite;

type
  Person = record
    name: String;
    age: Integer; // 改成Integer，适配数值型年龄
  end;
  personArray = array of Person;

// 写入单个Person记录到文件的过程，参数完整
procedure WriteLinesToFile(var myFile: TextFile; const pe: Person);
begin
  WriteLn(myFile, pe.age);
  WriteLn(myFile, pe.name);
end;

// 遍历personArray并打印所有记录到控制台
procedure PrintRecords(const ArrayOfPersons: personArray);
var
  i: Integer;
begin
  for i := 0 to High(ArrayOfPersons) do
  begin
    Writeln('Name: ', ArrayOfPersons[i].name, ', Age: ', ArrayOfPersons[i].age);
  end;
end;

// 从文件读取所有Person记录到动态数组
procedure ReadLinesFromFile(var myFile: TextFile; var ArrayOfPersons: personArray);
var
  p: Person;
begin
  SetLength(ArrayOfPersons, 0); // 初始化空数组
  while not Eof(myFile) do // 循环读取直到文件末尾
  begin
    ReadLn(myFile, p.age);
    ReadLn(myFile, p.name);
    // 动态扩展数组长度并添加新记录
    SetLength(ArrayOfPersons, Length(ArrayOfPersons) + 1);
    ArrayOfPersons[High(ArrayOfPersons)] := p;
  end;
end;

procedure Main();
var
  myFile: TextFile;
  persons: personArray;
  testPerson: Person;
begin
  // 准备测试用的Person数据
  testPerson.name := 'Alice';
  testPerson.age := 30;

  // 打开文件写入数据
  AssignFile(myFile, 'mytestfile.dat');
  ReWrite(myFile);
  WriteLinesToFile(myFile, testPerson); // 传入完整参数
  // 再写入一条测试数据
  testPerson.name := 'Bob';
  testPerson.age := 25;
  WriteLinesToFile(myFile, testPerson);
  Close(myFile); // 写完必须关闭文件

  // 重新打开文件读取数据
  AssignFile(myFile, 'mytestfile.dat');
  Reset(myFile);
  ReadLinesFromFile(myFile, persons);
  Close(myFile);

  // 打印读取到的所有记录
  PrintRecords(persons);
end;

begin
  Main();
end.

主要修改点说明 #

1. 把Person的age字段改成Integer，符合年龄的数值特性。
2. 修复了所有过程调用的参数缺失/类型不匹配问题。
3. 重构了PrintRecords和ReadLinesFromFile的逻辑，让它们真正实现“打印数组记录”和“从文件读取记录到数组”的功能。
4. 在Main里添加了测试数据，确保整个读写流程完整可运行。

内容的提问来源于stack exchange，提问作者Ali