問個idftp問題???(50分)

比如:
通過idftp去查看FTP Server中文件名是否含有'123'就下到本地來.
不能下到本地在比較,因為Server中有上千個文件(說的夸張一點,
主要是怕文件多,list文件要好久).
有點象模糊查詢的意思,這種是否可實現.

你可以看看123的文件大小就可以了啊。如果大于零则下载。
IdFTP.Size（文件名）

to maenxin:
我不是要下123這個文件,我是要把所有含'123'的文件都list出來,一個一下,相當于模糊的意思.

沒人回答我問題????

procedure TForm1.Button1Click(Sender: TObject);
var
aFile : TStringList;
i : integer;
Str : String;
begin
aFile := TStringList.Create;
if not IdFTP1.Connected then
IdFTP1.Connect(True, -1);
IdFTP1.ChangeDir('/Common/MPTool/');
IdFTP1.List(aFile, '', true);
if aFile.Count > 0 then
for i :=0 to aFile.Count - 1 do
begin
Str := aFile.Strings;
Delete(Str, 1, Length('11-01-06 09:00PM')); { 去除字符串的时间信息 }
Str := Trim(Str); { 去除字符串中的前后空格 }
Delete(Str, 1, Pos(' ', Str)); { 取出文件名 }
if Pos('123', Str) > 0 then
begin
ListBox1.Items.Add(Str); { 将符合条件的文件名加入列表 }
end;
end;
aFile.Free;

{接下来是下载所需要的文件}
end;

接受答案了.