Delphi 指针数组的引用

RowOut:  pByteArray;
RowIn :  array[0..2400] of pByteArray;

RowOut  := pByteArray(Bitmap0.Scanline[y]);

RowIn[xout] := pByteArray(Imagebits.Picture.Bitmap.Scanline[wout-1-xout]);


if RowIn[x*8+bitx][y div 8] and pu2[y mod 8] <> 0 then       

if RowIn[x*8+bitx]^[y div 8] and pu2[y mod 8] <> 0 then

 
Rowout[x] := Rowout[x] or pu2[bitx];

Rowout^[x] := Rowout^[x] or pu2[bitx];