1、修改Project Options Linker Max Stack Size
2、动态申请内存

解决方案 »

  1.   

    不需要。
    直接对Bitmap.ScanLine[Bitmap.Height-1]地址操作。
      

  2.   

    编译时好象都可以,但是不能安全地使用,比如运行一个按钮事件:
    procedure TForm1.Button1Click(Sender: TObject);
    var mb:array[0..999,0..999]of Short;
        x,y:Integer;
    begin
     for x:=0 to 999 do
      for y:=0 to 999 do
       mb[x,y]:=0;
    end;
    编译成功,但不能安全运行:运行时显示警告框‘stack overflow’
      

  3.   

    var mb:array[0..999,0..999]of Short;
    在全局处定义,运行成功
      

  4.   

    var mb:array[0..999,0..999]of short;procedure TForm1.Button1Click(Sender: TObject);
    var x,y:Integer;
    begin
    for x:=0 to 999 do
      for y:=0 to 999 do
      mb[x,y]:=0;
    end;
      

  5.   

    感谢hellion(恶人):您的第一修改方案可行。帮我解决了一个大问题。
    还想问问怎样动态申请内存?