Через тернии к звездам!

На пыльных тропинках далеких планет останутся наши следы!

  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
Главная страница Автор Дельфи Получение и обработка файлов каталога

Получение и обработка файлов каталога

E-mail Печать PDF

var
It: TStringList;
St,Ss: String;
i: word;
begin
GetDir(0,Ss);                         //Получил текущий каталог
OpenDialog1.InitialDir:=Ss;           //Каталог для диалог-окна
if not OpenDialog1.Execute then exit; //Если нет - выход
St:=OpenDialog1.FileName;             //Получил имя файла
ChDir(Ss);                            //Вернул текущий каталог
Ss:=ExtractFilePath(St);              //Получил путь к выбранной папке

It:=GetFilesDir(Ss,'*.txt');          //Получил файлы каталога
for i:=1 to It.Count do               //Перебираю файлы
begin
St:=It.Strings[i-1];                //Получил имя файла
ObrabReestrOplatSber(St);           //Обработал файл
end;
It.Free;
end;

 
Интересная статья? Поделись ей с другими:

Добавить комментарий

Обои рабочего стола

Борис Валеджио

Красиво

Фото-Приколы

Фото-Забавные животные

Рекомендую

Рекомендую

Глобально

Великая Отечественная

История

Оружие

Познавательно

Юмор

Прочее

Война

Оружие


Свежие записи

Счетчики

Яндекс.Метрика