Здравствуйте. На фтп есть список директорий, у меня есть тожи список директорий, которые надо найти на фтп.
| Код |
ListDir:=TStringList.Create;
try
...
FClient.FIdFTP.List(ListDir); //получаю список на фтп
except
//ошибка
end;
DirList:= TstringList.Create;
DirList.LoadFromFile(fDirEXE + 'test.txt'); //мой список загружаю
for j:=0 to DirList.Count-1 do
begin
if Pos(DirList.Strings[j], ListDir.Text) >0 then // ищу на фтп, есть ли там мои диры
Result := // и тут нужно вывести путь к директории, которая найдется из моего списка на фтп
exit;
end;
|
т.е. если найдется директория которая мне нужна, то в результате должно быть выведено ее путь на фтп.Подскажите как такое осуществить? |