Работа со списком объектов в Delphi: преодолеваем ошибки доступа

Delphi , Синтаксис , Память и Указатели

При работе с объектами в Delphi, особенно когда они хранятся в списках, могут возникать различные проблемы, связанные с доступом к полям и методам объектов. В данной статье мы рассмотрим типичную проблему, с которой сталкиваются разработчики при попытке модификации значений объектов, и пути её решения.

Проблема доступа к значениям через указатель

Рассмотрим ситуацию, когда у нас есть класс CModelItem, наследуемый от TObject, и мы хотим создать список таких объектов для последующей модификации их значений. Для этого мы создаём класс CQueueList, наследуемый от TList, и добавляем объекты CModelItem в этот список.

CQueueList = class(TList)
private
public
end;

var
QueueList: CQueueList;

Объекты CModelItem создаются и добавляются в список следующим образом:

QueueList := CQueueList.Create;
for idx := 0 to ndx - 1 do
begin
  MyItem := CModelItem.Create;
  MyItem.CopyHead(CModelItem(RunList.Objects[idx]));
  MyItem.ReadData;
  MyItem.NumOfIterations := NumRepEdit.Value;
  MyItem.IsInQueue := True;
  MyItem.LogEvents := EventsCheckBox.Checked;
  MyItem.LogMatch := MatchCheckBox.Checked;
  MyItem.LogUpdates := UpdatesCheckBox.Checked;
  QueueList.Add(MyItem);
end;

Проблема возникает при попытке модификации значений объектов в списке. Например, при попытке установить значение поля IsInQueue объекта MyItem, компилятор выдаёт ошибку, указывая, что IsInQueue является неопределённым идентификатором:

QueueList.Items[idx].IsInQueue := blah;

Также попытка копирования информации из объекта в список вызывает ошибку доступа.

Решение проблемы

Проблема заключается в том, что свойство Items класса TList возвращает нетипизированный указатель. Для корректного доступа к полям объекта необходимо выполнить приведение типа. Вот пример кода, который позволяет установить значение поля IsInQueue:

CModelItem(QueueList.Items[idx]).IsInQueue := blah;

Также можно переопределить свойство Items в классе CQueueList, чтобы оно возвращало объект типа CModelItem:

private
  function GetItems(Index: Integer): CModelItem;
public
  property Items[Index: Integer]: CModelItem read GetItems default;
end;

function CQueueList.GetItems(Index: Integer): CModelItem;
begin
  Result := inherited Items[Index];
end;

Альтернативные подходы

Если приведение типа не помогает, возможно, проблема кроется в другом месте кода, например, в методах CopyHead или ReadData. Важно тщательно проверить все места, где происходит работа с объектами.

Заключение

При работе со списками объектов в Delphi важно помнить о том, что свойство Items класса TList возвращает нетипизированный указатель. Использование приведения типов или переопределение свойства Items позволяет корректно работать со значениями полей объектов. В случае возникновения ошибок доступа важно проверить весь код, особенно методы, которые работают с объектами.

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

Статья о решении проблем доступа к объектам в списке в Delphi и методах их исправления.

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

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

:: Главная :: Память и Указатели ::