使用动态数组的无效指针操作

Question

Heloo guys ...一旦我尝试运行此代码,我就会遇到"无效指针操作"错误,问题是什么？它应该将该文本文件中的那些名称按字母顺序排序(学校项目).

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;
var
  names : TextFile;
  count : integer=0;
  array : array of string;
  i : integer;

Procedure Load;
 begin
  Reset(names);
  SetLength(array, count - 1);
  for i := 1 to count do ReadLn(names, array[i]);
 end;

begin
  AssignFile(names, 'names.txt');
  Reset(names);
    While not EoF(names) do
      begin
      ReadLn(names);
      Inc(count);
      end;
   Load;
   for i := 1 to count do WriteLn(array[i]);
   ReadLn;
   CloseFile(names);
   Erase(names);
end.

Answer 1

动态数组是从零开始的.你需要的长度设置为count从迭代0到count-1.

SetLength(arr, count);
for i := 0 to count-1 do
  ReadLn(names, arr[i]);

显然,所有索引都需要更改为基于0.

我将数组的名称更改为arr因为array是关键字.

不要尝试继续使用基于1的索引.这样做会让你头疼不已.

您还应该启用范围检查编译器选项.如果您访问数组越界,这样做将在运行时产生信息错误.