5,928
社区成员
发帖
与我相关
我的任务
分享动态数组问题！！！进来看看！！
我的程序这样写：
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时，就出错！这是为什么呀？定义动态数组还需要定义什么吗？
高手指教！谢谢！
...全文
请发表友善的回复…
发表回复
popmailzjw 2003-11-05
- 打赏
- 举报
都被说完了
yoisyois 2003-11-05
- 打赏
- 举报
SetLength(a, 11);
或者直接使用
TStrings
或者直接使用
TStrings
aiunong 2003-11-05
- 打赏
- 举报
动态数组需要设定数组长度
加一句
SETLENGTH(A,11)
加一句
SETLENGTH(A,11)
aiirii 2003-11-05
- 打赏
- 举报
在 for i:=0 to 10 do 前加一句:
SetLength(a, 11);
就沒問題!!
SetLength(a, 11);
就沒問題!!
dulei115 2003-11-05
- 打赏
- 举报
加一句：
SetLength(a,11);
SetLength(a,11);
