关于数据下载，在线等

Question

前辈写了部分代码，我是死活看不懂，烦您帮注解以下，谢谢！
var
Ls:TStringList;
I,R:Integer;
FileName,DatePath:String;
begin
Ls:=TStringList.Create;
IDFTP1.List(LS);//？
R:=LS.Count-1;
LS.Clear;
Application.ProcessMessages;//？
for i:=0 to R do//？（为什么要写个循环）
begin
if IDFTP1.DirectoryListing.Items[I].ItemType<>DitDirectory then//DirectoryListing？DitDirectory？（为什么要加这个判断？）
begin
FileName:=IDFTP1.DirectoryListing.Items[I].FileName;
IDFTP1.Get(FileName,FileName,False,True);//?
DeleteFile(FileName);
End;
......
另外，那位仁兄有关于数据在线更新的代码能共享一下，将不胜感激！

Answer 1

IDFTP1.List(LS);//？
得到 目录 LS下面的文件清单，因为它不是一个文件，是很对文件
所以后面用个循环一个一个的取if IDFTP1.DirectoryListing.Items[I].ItemType<>DitDirectory then因为列表里面有文件和目录存在，所以要判断文件列表当前项的是不是目录，不是就下载该文件。
是目录的话跳过。