Невозможно назначить левую сторону - Boolean (RecBuf [0]): = false

Question

Я конвертирую старый код из Delphi 5 в XE5. имеет этот кусок кода:

Boolean(RecBuf[0]) := False; 

RecBuf является PChar. Это работает в Delphi 7, но не в XE5. В XE5 он дает ошибку «Левая сторона не может назначить». Как реализовать этот код в XE5?

Answer 1

В Delphi 7, PChar является псевдонимом для PAnsiChar. То есть указатель на 8-битный символ ANSI. Это означает, что RecBuf[0] имеет тип AnsiChar. Поскольку AnsiChar и Boolean имеют одинаковый размер, актер действует.

В Delphi XE5, PChar является псевдонимом для PWideChar, указатель на символ шириной 16 бит. И поэтому RecBuf[0] имеет тип WideChar. Таким образом, приведение недействительно, потому что WideChar и Boolean имеют разный размер.

Точно, как лучше всего устранить проблему, невозможно определить из кода, который вы здесь показали. Вполне возможно, вам нужно обновить код RecBuf. Возможно, он должен быть объявлен как PAnsiChar. Хотя вы действительно задаетесь вопросом, почему вы бросаете персонажа в Boolean.

Другая возможность заключается в том, что причина RecBuf объявлен PChar, чтобы позволить вам использовать оператор индексации [], то, что в более ранних версиях Delphi является специальная способность указателей типов символов. В современной Delphi вы можете использовать {$POINTERMATH ON}, чтобы включить эту функциональность для всех введенных указателей. Итак, если вы это сделали, то, возможно, RecBuf должно быть PBoolean.

Суть в том, что, хотя мы можем объяснить, почему компилятор жалуется на ваш код, мы не можем дать вам окончательного решения.

Answer 2

Судя по имени RecBuf, они используются не как указатель на строку, а как указатель на буфер, выделенный в памяти.

Если мое предположение верно, вы можете захотеть повторно использовать RecBuf как переменную типа PByte.

Answer 3

Вы не можете назначать предметы броска слева, вам нужно отбросить правую сторону.

Вместо

Newtype(Whatever) := NewtypeConstant; 

вы должны использовать

Whatever := TUnknown(constant) 

В yourcase, из recbuf представляет собой массив, скажем, байт, то он помещает ложь (0) в ней, поэтому она должна быть

Recbuf[0] := Byte(False); 

Или вы могли бы, знаете ли, просто положить туда нуль.