请教有关FOR里面的IF语句错误

Question

我编译可以通过,运行BitBtn1Click事件的时候出错,不知道为什么,请高手指教.
我的代码如下:procedure TForm1.BitBtn1Click(Sender: TObject);
var
str1:string;
array1: array of string;
i,j :integer;
begin
str1:='';
j:=1;
  setlength(array1,length(edit1.Text));
  for i:=0 to length(edit1.Text) do
  begin
    array1[i]:=copy(edit1.Text,j,1);
    j:=j+1;
    if array1[i]<> ' ' then
      str1:=str1+array1[i];
  end;
  edit2.text:=str1;
  setlength(array1,0);
end;

Answer 1

是不是越界了
改成 for i:=0 to length(edit1.Text)-1 do 试试

Answer 2

for i:=0 to length(edit1.Text)-1 do 
改一下这里

Answer 3

我这里执行没有问题呀
procedure TForm1.Button2Click(Sender: TObject);
var
str1:string;
array1: array of string;
i,j :integer;
begin
str1:='';
j:=1;
  setlength(array1,length(edit1.Text));
  for i:=0 to length(edit1.Text)-1 do
  begin
    array1[i]:=copy(edit1.Text,j,1);
    j:=j+1;
    if array1[i] <> ' ' then
      str1:=str1+array1[i];
  end;
  edit2.text:=str1;
  setlength(array1,0);
end;