Исправление ошибки Invalid Pointer Operation при сортировке имен в Паскале: корректное использование динамических массивов

Delphi , Базы данных , Сортировка и Фильтр

При работе с динамическими массивами в Паскале важно помнить, что они нумерация начинается с нуля. В коде, предоставленном в вопросе, автор пытается прочитать содержимое файла и сохранить имена в динамический массив, но сталкивается с ошибкой "Invalid Pointer Operation". Эта ошибка возникает из-за неверного использования динамических массивов.

В коде автор пытается установить длину массива на значение count - 1, но это неверно. Длина массива должна быть установлена на значение count, а индексы массива должны начинаться с нуля и заканчиваться на count - 1.

Вот исправленный код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  names : TextFile;
  count : integer;
  arr : array of string;
  i : integer;

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

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

В этом коде длина массива устанавливается на значение count, а индексы массива начинаются с нуля и заканчиваются на count - 1. Также автор убрал лишнюю переменную count, так как длина массива уже содержит это значение.

Также стоит отметить, что для сортировки массива имен в алфавитном порядке можно использовать встроенную функцию Sort из модуля SysUtils. Вот пример кода, который сортирует массив имен в алфавитном порядке:

Sort(arr, 0, High(arr));

Эта функция сортирует массив от первого до последнего элемента.

В заключение, важно помнить, что динамические массивы в Паскале нумеруются с нуля, и при работе с ними необходимо правильно устанавливать длину массива и индексы элементов. Также для сортировки массива имен можно использовать встроенную функцию Sort.

Создано по материалам из источника по ссылке.

В Паскале при работе с динамическими массивами важно помнить, что их индексация начинается с нуля.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка и Фильтр ::