индивидуалки калуга Секс – естественная потребность человека. Все мы хотим плотских утех с симпатичными девушками, готовыми на эксперименты в постели. В реальной жизни на поиск партнерши может уйти слишком много времени.

Найти файлы указанного расширения в указанной директории

Автор:

Выводит список найденных файлов в ListBox1. Так что необходимо выложить компонент TListBox на форму.

Procedure FindFileInFolder(path, ext: string);
Var SR : TSearchRec;
    Res : Integer;
begin
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
   Form1.ListBox1.Items.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFileInFolder('D:\Music\', '*.mp3');
end;

Просмотров: 12214

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.