用scanline取BMP上某点的颜色，代码如下，为什么可以编译，运行时却出错呢？

Question

procedure TForm1.Image1Click(Sender: TObject);
var
 x,y:Integer;
 Pixs:array of TColor;
begin image1.Picture.loadfromfile('d:\001.bmp');
 Pixs:=image1.Picture.Bitmap.ScanLine[0];
 if Pixs[0]=clwhite then showmessage('www');end.请路过的朋友不吝赐教啊。。

Answer 1

p:ByteArray;
p:=image1.Picture.Bitmap.ScanLine[0];

Answer 2

多谢，但是为什么tcolor数组不行？

Answer 3

请问能不能将scanline出来的值经过转换后输入到tcolor数组，我想它们都是表示颜色的，应该可以做到吧？

Answer 4

看下ScanLine的 使用

Answer 5

var
a:TBitMap
begin
    form1.canves.Draw(x,y,a);
end;这样应该就编译得过但运行出错!