list index out of bounds(1)

Question

越界了,可是想不出什么原因
做个FTP的连接,代码如下procedure TForm1.FTPConClick(Sender: TObject);
begin
  ftpcon.Enabled:=false;
  with IdFTP1 do
  begin
    Try
      Host:=Trim(Edit1.Text);
      UserName:=Trim(Edit2.Text);
      Password:=Trim(Edit3.Text);
      Connect;
      DirectoryListBox.Items.Clear;
      DebugListBox.Items.Clear;
    Finally
      if Connected then
      begin
        DisplayDir(trim(CURDIR.Text)); // 改变当前路径
        FTPCon.Enabled:=false;     // 连接按钮
        FTPDisCon.Enabled:=True; // 断开按钮
      end;
    end;
  end;
end;
在红色那出现错误..第一次弄FTP,请大虾们指点下

Answer 1

红色字显示不出....
在Connect;那出错了

Answer 2

这一段代码应该没有问题。
可能是IdFTP1的某个属性设置有问题吧

Answer 3

看看 这个DirectoryListBox 的属性

Answer 4

DirectoryListBox的属性我什么都没设置的也挨

Answer 5

我试了，连我的服务器是没有问题的，你看看你的FTP服务器的设置吧
  with IdFTP1 do
  begin
    Try
      Host:=Trim(Edit1.Text);
      UserName:=Trim(Edit2.Text);
      Password:=Trim(Edit3.Text);
      Connect;
      //rectoryListBox.Items.Clear;
      //bugListBox.Items.Clear;
      showmessage('ok');
    except
      showmessage('error');
    end;
  end;

Answer 6

 = =!
 要不是list index out of bounds(1)  ,要不就连接超时,
 可是我的服务器地址在浏览器那输入也可以访问,程序里就不得了

Answer 7

会不会是匿名访问的问题，你的Edit在连接请求的时候都有初始值么。