我的程序这样写:
procedure TForm1.Button1Click(Sender: TObject);
type
TCWKM=array of string;
var
a:Tcwkm;
i:integer;
begin
for i:=0 to 10 do
begin
a[i]:='asdef';
end;
end;
可点击Button1时,就出错!这是为什么呀?定义动态数组还需要定义什么吗?
高手指教!谢谢!
procedure TForm1.Button1Click(Sender: TObject);
type
TCWKM=array of string;
var
a:Tcwkm;
i:integer;
begin
for i:=0 to 10 do
begin
a[i]:='asdef';
end;
end;
可点击Button1时,就出错!这是为什么呀?定义动态数组还需要定义什么吗?
高手指教!谢谢!
SetLength(a, 11);
就沒問題!!
加一句
SETLENGTH(A,11)