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

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.  
   
  请路过的朋友不吝赐教啊。。

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

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

类型不同

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

 
  看下ScanLine的   使用  
 

"为什么可以编译，运行时却出错呢？"  
   
  要写一个编译不出错，而运行出错的程序真的太容易了。

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

--------------------------
新闻：中国移动将简化资费套餐至10套以内
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看