Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Безотменно ознакомьтесь с каталогом на полноценным сайте http://prostitutkinovosibirskaxxx.com для того, чтобы обеспечить себя очаровательным интимным досугом с изящными шлюхами из вашего региона. | Элитные проститутки Брянска ожидают исключительных клиентов для незабываемого времени. | На https://prostitutkicheboksaryfun.net/ вы найдете самый широкий выбор проституток. | Дешевые проститутки ждут вас на https://prostitutkisaratovameet.net/ - прикоснитесь к незабываемым ощущениям по самой выгодной цене. | Закажите услуги роскошных элитных проституток на https://prostitutkinizhnegonovgorodanew.com/ и ощутите все прелести их служб. | Встречайтесь с элитными проститутками по адресу https://prostitutkisaratovatake.net/. | Приглашаем вас на сайт https://prostitutkimurmanskasex.net/, где вы найдете самые известные проститутки города. | Качество гарантировано с проверенными проститутками на https://prostitutkitambovashe.info/! | Отдохните от повседневной рутины со сказочно дешевыми проститутками на https://prostitutkibryanskawant.com/ – ваше удовольствие станет доступным. | Доверьтесь проверенным проституткам, которых можно найти на странице https://prostitutkibryanskatake.com/proverennye/. | Поймите максимальное удовольствие с анальными услугами от проституток на https://prostitutkinovokuznetskafine.info/. | Встречи с исключительными проститутками ждут вас на https://prostitutkitaganrogalist.info/! | https://prostitutkimagnitogorskamix.com/ - Ищите анальный секс? Мы предлагаем лучший выбор проституток для этого. | Найдите идеальную компаньонку на https://prostitutkilipetskaslip.info/ для незабываемого времени вместе. | Откройте мир удовольствия с элитными проститутками, доступными на сайте https://prostitutkivolgogradashe.net/elitnye/. | На сайте https://prostitutkibiyskatake.com/ вы найдете проверенных проституток, которые готовы удовлетворить ваши сексуальные желания. | Для получения проституток вам следует посетить https://prostitutkikurganastay.net/. | На сайте https://prostitutkisamaryreal.net/ вы найдете только качественные услуги от профессиональных проституток. | Элитные проститутки Калининграда предлагают эксклюзивные услуги для самых взыскательных клиентов. | Элитные проститутки Тулы сделают ваше время незабываемым и самым приятным.
Delphi - База Знаний: Прочитать содержимое папки
procedure LookDir(StartDir, Mask : String; List : TStringList);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then
begin
List.Add(StartDir+SearchRec.Name);
end
else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then LookDir(StartDir + SearchRec.Name + '', Mask, List);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
Используется так:
var
lst : TStringList;
begin
lst := TStringList.Create;
LookDir('C:Мои документы', '*.*', lst);
lst.SaveToFile('C:List.txt');
lst.Free;
end;
