Исправление ошибки "invalid pointer operation" при переупорядочении списка объектов в Delphi

Delphi , Компоненты и Классы , Списки

Вопрос, поднятый в вашем запросе, касается проблемы, возникающей при переупорядочивании списка объектов в Delphi. При использовании класса TCustomList, наследующегося от TObjectList, и попытке реализации сортировки методом вставки, вы столкнулись с ошибкой "invalid pointer operation". Давайте разберемся, почему это происходит, и найдем решение этой проблемы.

Описание проблемы

Вы создали кастомный список TCustomList, который наследуется от TObjectList. В вашем классе реализованы методы GetItem и SetItem, а также свойство Items и метод сортировки InsertSort. При выполнении метода сортировки возникает исключение, связанное с некорректной работой с указателями.

Пример кода

type
  TCustomList = class(TObjectList)
  private
    function GetItem(AIndex: Integer): TMyObject; // virtual;
    procedure SetItem(Index: Integer; AObject: TMyObject);
  // ...
  public
    property Items[Index: Integer]: TMyObject read GetItem write SetItem;
    procedure InsertSort();
  end;

implementation
function TCustomList.GetItem(AIndex: Integer): TMyObject;
begin
  Result := TMyObject(inherited Items[AIndex]);
end;

procedure TCustomList.SetItem(Index: Integer; AObject: TMyObject);
begin
  inherited Items[Index]:= AObject;
end;

procedure TCustomList.InsertSort;
var
  i, j: integer;
  key: TMyObject;
begin
  for j := 1 to self.Count - 1 do
  begin
    key:= self.Items[j];
    i := j - 1;
    while ((i >= 0) AND (self.Items[i].Compare(key) > 0)) do
    begin
      self.Items[i+1]:= self.Items[i]; // здесь происходит ошибка
      i := i-1;
    end;
    self.Items[i+1]:= key;
  end;
end;

Причины ошибки

Проблема заключается в том, что при использовании TObjectList список автоматически уничтожает объекты, когда они удаляются. В вашем коде, при выполнении операции self.Items[i+1] := ..., объект, который был в этой позиции, уничтожается, чтобы освободить место для нового. Это приводит к тому, что вы пытаетесь обратиться к уже уничтоженному объекту, что и вызывает исключение "invalid pointer operation".

Подтвержденное решение

Чтобы решить эту проблему, можно использовать метод Extract для удаления элемента из списка без его уничтожения. Также подойдет метод Exchange, который идеально подходит для операций сортировки.

Еще один способ - временно установить свойство OwnsObjects в False перед сортировкой и восстановить его в True после завершения сортировки. Это позволит избежать уничтожения объектов при переупорядочивании.

Альтернативный ответ

Вместо реализации собственного метода сортировки, рекомендуется использовать встроенный метод Sort, предоставляемый классом TList. Это избавит вас от необходимости реализовывать собственную логику сортировки и сделает ваш код более надежным и простым.

Пример использования метода Sort

myCustomList.Sort(TMyObject.Compare);

Или, если вы хотите использовать OwnsObjects, временно отключите его перед сортировкой и включите после:

self.OwnsObjects := False;
TCustomList.InsertSort;
self.OwnsObjects := True;

Заключение

Проблема "invalid pointer operation" при переупорядочении списка объектов в Delphi может быть решена с помощью понимания того, как работает владение объектами в TObjectList. Использование методов Extract или Exchange, а также временное изменение свойства OwnsObjects может помочь избежать этой ошибки. В идеале, рекомендуется использовать встроенный метод Sort для упрощения вашего кода и повышения его надежности.

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

Вопрос касается решения проблемы 'invalid pointer operation' при переупорядочивании списка объектов в среде программирования Delphi, связанной с неправильной работой с указателями в пользовательском классе, наследующем `TObjectList`.

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

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

:: Главная :: Списки ::