Обновление проекта Delphi: исправление ошибки E2064 после перехода с версии 2009 на XE

Delphi , Алгоритмы , Компиляторы

Статья о переходе на версию XE из Delphi 2009 и устранение ошибки E2064

При обновлении проекта Delphi с версии 2009 до XE, многие разработчики сталкиваются с различными проблемами совместимости. Одной из таких проблем является возникновение ошибки E2064 "Left side cannot be assigned to" при попытке присвоения значений полям записи через свойство.

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

В исходном коде, представленном ниже, используется запись TTestRecord с двумя целочисленными полями. В версии Delphi 2009 такой код компилируется без ошибок, но при переходе на версию XE появляется ошибка E2064:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TTestRecord = record
    FirstItem: Integer;
    SecondItem: Integer;
  end;
  TForm2 = class(TForm)
    procedure AssignValues;
  private
    FTestRecord: TTestRecord;
  public
    property TestRecord: TTestRecord read FTestRecord write FTestRecord;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.AssignValues;
begin
  with TestRecord do
  begin
    FirstItem := 14; // Выдает ошибку в XE, но не выдавал в Delphi 2009
    SecondItem := 15;
  end;
end;

end.

Причины возникновения ошибки

Ошибка E2064 возникает из-за того, что начиная с версии Delphi XE компилятор стал более строгим и не позволяет напрямую изменять поля записи через свойство объекта. В предыдущих версиях Delphi (например, в 2009) такой подход работал, но изменения не сохранялись после завершения работы метода из-за использования временной переменной.

Подтвержденное решение проблемы

Чтобы исправить ошибку E2064 и обеспечить корректную работу кода в Delphi XE, необходимо изменить тип свойства TestRecord на указатель на запись. Для этого следует использовать следующий код:

type
  PTestRecord = ^TTestRecord;
  TForm2 = class(TForm)
    procedure AssignValues;
  private
    FTestRecord: TTestRecord;
  public
    property TestRecord: PTestRecord read GetTestRecord write SetTestRecord;
  end;

function TForm2.GetTestRecord: PTestRecord;
begin
  Result := @FTestRecord;
end;

procedure TForm2.SetTestRecord(const Value: PTestRecord);
begin
  FTestRecord := Value^;
end;

procedure TForm2.AssignValues;
begin
  with TestRecord do // Теперь TestRecord - это указатель на запись
  begin
    FirstItem := 14; // Ошибка E2064 больше не возникает
    SecondItem := 15;
  end;
end;

Альтернативные решения

В качестве альтернативы, можно использовать методы для прямого доступа к полям записи:

procedure TForm2.SetFirstItem(Value: Integer);
begin
  FTestRecord.FirstItem := Value;
end;

procedure TForm2.SetSecondItem(Value: Integer);
begin
  FTestRecord.SecondItem := Value;
end;

И вызывать эти методы в процедуре AssignValues:

procedure TForm2.AssignValues;
begin
  SetFirstItem(14);
  SetSecondItem(15);
end;

Заключение

Переход на версию XE из Delphi 2009 может потребовать внесения изменений в код для обеспечения совместимости с новыми требованиями компилятора. Важно понимать, что строгость компилятора направлена на улучшение качества и безопасности кода. Использование указателей на запись или прямых методов доступа позволяет обойти проблему E2064 и обеспечить корректную работу приложения в новой версии Delphi.

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

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

Переход на версию XE из Delphi 2009 приводит к появлению ошибки E2064 при попытке присвоения значений полям записи через свойство, что требует изменений в коде для совместимости с новыми требованиями компилятора.

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

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

:: Главная :: Компиляторы ::