Question

问个delphi7二维数组的问题，我想定义一个1024,1024的二维数组，可是为什么我最大只能定义到500,500

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..500,0..500] of integer;
begin
a[500,500]:=100; end;
end.
为什么只能定义到500,500，再大就提示堆栈溢出了，用delphi怎么样才能定义一个1024,1024的二维数组

Answer 1

在函数中定义，最好不要超你所说的范围。

有两个办法：
一、在类中定义。
二、定义成全局变量。
以下是示例：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
a:array[0..8024,0..8024] of Integer; //类中定义
public
{ Public declarations }
end;
var
Form1: TForm1;
b:array[0..8024,0..8024] of Integer;//全局变量
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
c:Array[0..500,0..500] of Integer;//函数中定义
i:Integer;
begin
a[1024,1024]:=1024;
b[1024,1024]:=1024;
c[500,500]:=1024;
Caption:=IntToStr(a[1024,1024])+' '+IntToStr(b[1024,1024])+' '+IntToStr(c[500,500])+' ';
end;
end.