Инициализация массивов объектов в Delphi: обход ошибок на уровне связей

Delphi , Синтаксис , Массивы

При работе с классами в Delphi, особенно если они используются для взаимодействия с удаленными веб-сервисами, важно правильно инициализировать объекты и массивы, чтобы избежать ошибок, таких как доступ к неинициализированной памяти (AV, или Access Violation). В данной статье мы рассмотрим, как правильно инициализировать массив объектов внутри класса, используя Delphi.

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

Разработчики часто сталкиваются с проблемой, когда основной класс содержит стандартные поля и массив объектов, определенных в другой, более низком уровне, классе. При создании основного класса не происходит автоматическая инициализация объектов в массиве, что приводит к ошибке доступа при попытке обращения к элементам массива.

Пример кода

unit Unit1;
...
type
  ProductLine = class(TRemotable)
  private
    Description: string;
    Quantity: integer;
  end;
...
  ArrayOfProductLines = array of ProductLine;
...
  Customer = class(TRemotable)
  private
    Name: string;
    Comment: string;
    ProductLines: ArrayOfProductLines;
  end;
...
var
  Form1: TForm1;
  TObj : Customer;     // Объект для передачи данных
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  TObj.Name := 'Test Name';
  TObj.Comment := 'Test Comment';
  TObj.ProductLines[0].Description := 'Test Description 1'; // Здесь возникает ошибка
  TObj.ProductLines[0].Quantity := 1; // Поскольку массив не инициализирован, здесь будет ошибка AV
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  TObj := Customer.Create;
  SetLength(TObj.ProductLines, 1); // Здесь создается место для объекта, но он не инициализирован
end;
...

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

Чтобы решить эту проблему, необходимо не только выделить память под элементы массива, но и инициализировать каждый объект в массиве. Это делается с помощью создания объекта для каждого элемента массива:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TObj := Customer.Create;
  SetLength(TObj.ProductLines, 1); // Выделяем память для одного элемента массива
  TObj.ProductLines[0] := ProductLine.Create; // Создаем объект для первого элемента массива
end;

Важные замечания

• После создания каждого объекта в массиве, необходимо вручную удалить их, чтобы избежать утечек памяти:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(TObj) then
  begin
    for var i := High(TObj.ProductLines) downto Low(TObj.ProductLines) do
      TObj.ProductLines[i].Free;
    TObj.Free;
  end;
end;

• Используйте конвенции именования типов, как описано в официальной документации Embarcadero: для типов и общих переменных типов следует использовать капитал "T" в начале, например TCustomer. Для переменных избегайте использования "T" в начале, например Customer.

Заключение

При работе с массивами объектов внутри классов в Delphi важно помнить, что создание основного объекта не приводит к автоматической инициализации элементов массива. Для корректной работы необходимо выделить память для элементов массива и инициализировать каждый объект отдельно. Не забывайте также о необходимости очистки объектов для предотвращения утечек памяти. Следуя этим рекомендациям, вы сможете избежать распространенных ошибок и обеспечить надежность вашего кода.

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

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

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

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

:: Главная :: Массивы ::