大侠帮帮忙 用Tidftp 的makedir 建立目录(49分)

我用Tidftp.makedir('usr/backup/F/c/a');
报错:没有建立'usr/backup/F/c/a' 不知道是不是不能这么样建立连续的目录,怎么建立这样的嵌套目录 ！

当r=backfilecomptime1.count-1时
temp7 := backfilecomptime1.Strings[r+1];越界了
加个判断吧

我加了下 还是控制不行, 怎么加呢

不知你是怎么ADD进来的，如果是一笔一笔来的那就在加入前先判断一下：
function AddBackFileCompTime(lst: TStringList;
s: string): Boolean;
begin
if lst.IndexOf(s) < 0 then
lst.Add(s);
end;

如果一次加入多笔的话，可以先放到一个临时List里然后再一笔笔往里加，这样也就不用那么循环比较了
function AddBackFileCompTime_EXT(lst: TStringList;
strLst: string): Boolean;
var
s: string;
i: Integer;
begin
with TStringList.Createdo
try
Text := strLst;
for i := 0 to Count - 1do
begin
s := Strings;
AddBackFileCompTime(lst, s);
end;
finally
Free;
end;
end;

多谢 我调试好了