【结】为什么这句话编译不过去，该如何写

pangshaowei · 发表于 2010-8-13 10:09:45

var
  StringList :TStringList;
i :Integer;
  LS:TIdFTPListItems;
begin
  Self.IdFTP1.ChangeDir('C:\FTP\localhost\test');
  StringList :=TStringList.Create;
  Self.IdFTP1.List(StringList);
  LS:=TIdFTPListItems.Create;
  LS.Assign(Self.IdFTP1.DirectoryListing);
  for i := 0 to LS.Count - 1 do
  begin
if LS.Items.ItemType = ditDirectory then
begin

为什么if LS.Items.ItemType = ditDirectory then这句话报错，难道不识别ditDirectory 吗

pangshaowei · 发表于 2010-8-13 10:13:09

呵呵，现在通过搜索找到问题的解决办法了，结贴

atiger · 发表于 2010-8-13 10:44:08

报啥错误
如果是找不到，前面应该加名个空间就可以了

pangshaowei · 发表于 2010-8-13 14:04:58

if Self.IdFTP1.DirectoryListing.Items.ItemType = TIdDirItemType.ditDirectory then
我是主要写的。不知道对不对？

atiger · 发表于 2010-8-13 14:07:07

呵呵，只要编译过了，说明语法没有问题了，
逻辑是否对，只能看结果了，结果对了，那就是逻辑也ok了

pangshaowei · 发表于 2010-8-13 15:21:41

结贴吧！

atiger · 发表于 2010-8-13 15:46:02

		自动登录	找回密码
密码			立即注册