delphi动态数组问题?

[zwl232]

我写的程序为:
var
I:integer;
begin
I:=ComboBox1.Items.Count-1;
SetLength(str,I);
I:=0;
for I:=0 to ComboBox1.Items.Count-1 do
begin
str[i]:=ComboBox1.Items[I];
end;
为什么运行之后出错?

[lihuasoft]

楼主已说了是"动态数组", 不是字符串 . 动态数组的下标是从0开始的.

所以,只改这一句就可以了:

I:=ComboBox1.Items.Count; //不要-1

另外, 最好把这句for I:=0 to ComboBox1.Items.Count-1 do

改为 for I:=Low(Str) to High(Str) do

如果还出问题, 那么就可能是运行过程中ComboBox1.Items.Count变化, 下标越界了.

[Rophy_Liu]

字符串的下标引用不能从0开始，应该写为str[i+1]:=ComboBox1.Items[I];

[chenzhuo]

var
I:integer;
begin
I:=ComboBox1.Items.Count; //不要-1
SetLength(str,I);
I:=0;
for I:=0 to ComboBox1.Items.Count-1 do
begin
str[i+1]:=ComboBox1.Items[I]; //str[i+1]
end;

[小呆之家]

var
I:integer;
str:array of string;//.....?
begin
I:=ComboBox1.Items.Count;
SetLength(str,I);//如果不是上面的定义，你只分配了一个字符串，并不是字符串数组。
I:=0;
for I:=0 to ComboBox1.Items.Count-1 do
begin
str[i]:=ComboBox1.Items[I];
end;

[HsWong]

lihuasoft正解