Ошибка компилятора Delphi E2064 левая сторона не может быть назначена

Question

Я унаследовал приложение Delphi, и я ничего не знаю об объекте pascal.

Это BPL, который мне нужно скомпилировать в новую версию C++ Builder XE.
Когда я запустил make, я получаю сообщение об ошибке:

Нельзя назначить левую сторону E2064.

Я узнал достаточно об этом, чтобы узнать, что у меня есть константа, которая пытается присвоить значение.

Но, судя по всему, вы можете преодолеть это поведение; по существу превращая константы в vars, перейдя в опции Build под компилятором Delphi и включив «Assignable Typed constants».

Я сделал это, и я продолжаю получать ту же ошибку.

Я попытался окружить свой код {$ J +} и {$ J-}, и все равно он не будет компилироваться.

procedure TChunkIDAT.CopyInterlacedRGB8(const Pass: Byte; 
    Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pChar); 
var 
    Col: Integer; 
begin 
{Get first column and enter in loop} 
Col := ColumnStart[Pass]; 
Dest := pChar(Longint(Dest) + Col * 3); 
repeat 
{Copy this row} 

    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest); 

Получить сообщение об ошибке на последней строке. Если я изменил const на var, я получаю ошибку, которая отличается от предыдущей декларации, но я понятия не имею, где предыдущая декларация ...

Answer 1

Вы создаете двухбайтовый тип вещь (Char) в однобайтную вещь (Byte). Чтение Это значение легко определить, но значение доступно для записи сложно, возможно, по той же причине типы формальных и фактических параметров «var» должны быть одинаковыми.

Возможно, вы хотели напечатать его на двухбайтную вещь, такую ​​как Word. Или, может быть, вы хотите, чтобы GammaTable был массивом Char, поэтому вам не нужно набирать текст вообще. Или, может быть, если этот код был первоначально написан для версии Delphi раньше 2009 года, вы хотите, чтобы эти объявления PChar были PAnsiChar - типы символов стали шире. Другим вариантом является листинг Dest на PByte и , затем разыгрывать результат. Это, наверное, плохая идея, потому что вы будете переписывать только каждый байт буфера.

Основываясь на названии функции, это звучит так: PChar никогда не был правильным типом данных для использования. Этот тип для символов данные, но я думаю, что этот код имеет дело с байтами. Правильная вещь, вероятно, состоит в том, чтобы изменить PChar на PByte, а затем вам не нужно вводить текст Dest.

Директива $J не имеет значения; он контролирует, позволит ли компилятор присвоить значения типизированным константам. У вас нет ни одного из них в этом коде.

Answer 2

Похоже, вы работаете с библиотекой TPngImage Густаво Дауда. Вам не нужен этот код во внешней BPL, потому что он был включен в RTL с D2009. Удалите этот блок из BPL, и вы сможете получить обновленную версию через блок PngImage.

Answer 3

Причина в том, что с Delphi 2009, Char, PChar и String являются Unicode и хранятся более одного байта на символ.
Вы не должны указывать эти указатели на байты, а компилятор не позволяет назначать их, если вы отдаете левую часть задания байту.

компилируется:

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: pAnsiChar); overload; 
begin 
    Byte(Dest^) := Pass; 
end; 

Это не:

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: pChar); overload; 
begin 
    Byte(Dest^) := Pass; 
end; 

Вместо PChar, вы должны использовать PByte, что делает код проще:

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: PByte); overload; 
begin 
    Dest^ := Pass; 
end; 

- jeroen