```markdown Название статьи: "Почему свойства объекта-элемента массива внутри класса в Delphi не сохраняют значения?" ```

Delphi , Синтаксис , Записи и Множества

Почему свойства объекта-элемента массива внутри класса в Delphi не сохраняются?

При написании простого объекта на языке программирования Delphi, который содержит в себе массив записей (аналогично структуре счета: ID, дата, наименование клиента и массив записей о товарах), разработчики сталкиваются с проблемой сохранения изменений свойств элементов массива.

Проблема:

Предположим, что у нас есть определение класса Tcart, содержащего в себе частный массив объектов типа Trows. Каждый элемент этого массива представляет собой запись со структурой (код товара, количество и цена). В рамках объекта Tcart реализован доступ к этим записям через свойство Row[Index: Integer]: TRows read Getrow write Setrow.

Примерный код класса:

type
  Trows = record
    private
      Fcode: string;
      Qty: Double;
      cena: Currency;
      procedure SetCode(const Value: string);
    public
      property Code: string read FCode write SetCode;
  end;

  Tcart = class(TObject)
  private
    Frow: array of Trows;
    function GetRow(Index: Integer): TRows;
    procedure SetRow(Index: Integer; const Value: TRows);
  public
    // Другие свойства класса...
    property Row[Index: Integer]: TRows read GetRow write SetRow;
    // Остальные методы и свойства класса...
  end;

Разработчик хочет изменить значение одного из элементов массива, используя следующий код:

Cart.Row[0].Code := '555';

Однако изменения не сохраняются. Несмотря на то что другие способы изменения значения элемента работают (например, через метод SetRow), прямая запись в свойство объекта массива приводит к тому, что измененные данные не отражаются.

Решение:

Проблема заключается в том, что свойство Row[] возвращает объект типа TRows по значению. Это означает, что вызывающий код получает копию оригинальной записи, а не ссылку на неё. Любые изменения, внесенные в эту копию, не затрагивают исходную запись.

Чтобы применить изменения к оригинальному объекту, необходимо присвоить измененное копирование обратно свойству:

var
  ARows: Trows;
begin
  ...
  ARows := Cart.Row[0];
  ARows.Code := '555';
  Cart.Row[0] := ARows; // Эквивалентно 'Cart.SetRow(0, ARows);'
  ...
end;

Таким образом, при прямой работе с элементами массива необходимо быть внимательным к тому, как реализовано доступ к ним: по ссылке или по значению. В данном случае, для сохранения изменений свойств элементов массива внутри класса Tcart, нужно использовать метод SetRow или аналогичную процедуру присваивания, которая обновит оригинальный объект.

Альтернативный ответ и Подтвержденный ответ:

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

Этот урок является важным для разработчиков, работающих с классами и массивами в Delphi, поскольку подчеркивает необходимость понимания того, как передаются параметры: по значению или по ссылке.

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

Проблема заключается в том, что свойство `Row[]` класса `Tcart` возвращает копию объекта `TRows`, а не ссылку на него, из-за чего изменения не сохраняются.

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

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

:: Главная :: Записи и Множества ::