Question

我需要做一个任务，我制作两个程序，一个用于编写团队中的玩家列表及其分数，另一个用于阅读和搜索特定玩家的 .dat 文件。

我选择使用数组进行此操作但是当我输入第一个玩家得分后运行第一个程序时，我得到exitcode 201。

我的代码：

Program TeamWrite;
    Var FName : String;
        UserFile : Text;
        Players : array[1..10] of string;
        Score : array[1..10] of integer;
        List1: Integer;
        List2: Integer;

BEGIN
  FName := 'Team';
    Assign(UserFile, 'C:\Team.dat');
    Rewrite(UserFile);
    FOR List1:= 1 to 10 DO
            begin
                Writeln('Enter players name and score separated by pressing enter.');
                Readln(Players[List1]);
                Readln(Score[List2]);
                Writeln(UserFile, Players[List1]);
                Writeln(UserFile, Score[List2]);
            end;
    close(UserFile);
End.

请帮忙！

Answer 1

您的变量List2未初始化，因此Score[List2]生成一个超出范围的＆＃34;索引＆＃34;错误。实际上你根本不需要List2;只需使用List1，您的程序即可运行。

如何使用pascal将数组写入.dat

1 个答案: