Использование директивы absolut

← →
pasha_golub © (2004-04-23 14:10) [0]

Есть процедура:
procedure VGradientFill(ACanvas: TCanvas; ARect: TRect; FromColor, ToColor: TColor); var FC: array [0..3] of byte absolute FromColor; TC: array [0..3] of byte absolute ToColor; ...

Массивы FC, TC объявлены для удобства. Потому как в процедуре часто идет доступ непосредственно к каждому компонту цвета (RGB).

Однако, имеется мнение (не мое), что такая конструкция плохо переносится на последующие версии и плохо читаема.

1. Попрошу объяснить так ли это? Желательно с цитатами из хелпа 7 или 8 версии.
2. Какйо подоход ближе вам:
а) через асболют
б) через
type TMixedType = packed record case boolean of False: {Color: TColor); True: {R,G,B,Ext: byte}; end;
в) либо танцы с shr & shl
Спасибо

← →
Тимохов © (2004-04-23 14:12) [1]

1.вряд ли смогу
2.в)+and

← →
Palladin © (2004-04-23 16:34) [2]

1 частично так... директива absolute является unsafe, и скорее всего упразднена в d8
2 case в record тоже является unsafe, но скорее всего вру, лучьше почитать первоисточник

танцы надежней

Спасибо, но цитаты из хелпа были бы интересней.

Использование директивы absolut Найти похожие ветки