1 RowOut: pByteArray;
2 RowIn :
array[
0..
2400]
of pByteArray;
3
4 RowOut :=
pByteArray(Bitmap0.Scanline[y]);
5
6 RowIn[xout] := pByteArray(Imagebits.Picture.Bitmap.Scanline[wout-
1-
xout]);
7
8
9 if RowIn[x*
8+bitx][y
div 8]
and pu2[y
mod 8] <>
0 then
10
11 if RowIn[x*
8+bitx]^[y
div 8]
and pu2[y
mod 8] <>
0 then
12
13
14 Rowout[x] := Rowout[x] or pu2[bitx];
15 Rowout^[x] := Rowout^[x]
or pu2[bitx];
转载于:https://www.cnblogs.com/shangdawei/archive/2013/04/28/3049793.html
相关资源：数据结构—成绩单生成器
