你要先给出数组的长度 setlength(myIndexString,10); for i:=0 to 20 do myIndexString[i]:='aaa';
是啊,放着现成的不用?另外,如果不想用你应该在使用动态数组前给其一个长度SetLength!
TStringList TMemo ....很多都可以
setlength(myIndexString,10); for i:=0 to 20 do myIndexString[i]:='aaa';??????????? setlength(myIndexString,20); for i:=0 to 20 do myIndexString[i]:='aaa';
setlength(myIndexString,10); for i:=0 to 20 do myIndexString[i]:='aaa';??????????? setlength(myIndexString,20); for i:=0 to 20 do////////////////////////////不越界吗? 0..19 myIndexString[i]:='aaa'; ?????????????????????????????????????????????????????????????????
procedure TForm1.Button1Click(Sender: TObject); var myindexstring:array[0..20]of string; i:integer; begin for i:=0 to 20 do myIndexString[i]:='aaa';end;
setlength(myIndexString,10);
for i:=0 to 20 do
myIndexString[i]:='aaa';
for i:=0 to 20 do
myIndexString[i]:='aaa';???????????
setlength(myIndexString,20);
for i:=0 to 20 do
myIndexString[i]:='aaa';
for i:=0 to 20 do
myIndexString[i]:='aaa';???????????
setlength(myIndexString,20);
for i:=0 to 20 do////////////////////////////不越界吗? 0..19
myIndexString[i]:='aaa';
?????????????????????????????????????????????????????????????????
TStringList
TStringList.insertObject(index, string, object);
一定要用动态数组的话也要先SetLength
setlength(myIndexString,X);
var myindexstring:array[0..20]of string;
i:integer;
begin
for i:=0 to 20 do
myIndexString[i]:='aaa';end;