Программное получение имени файлов в папке

[саша40]

Привет. Есть код:

var
SR: TSearchRec;
Tin: integer;
s: boolean;
i: integer;
begin
s:=false;
gPath:='';
if SelectDirectory('Выбирите папку', '', gPath) then
s:=true 
else
exit;
if gPath<>'' then 
begin
Tin:=FindFirst(gPath,faArchive,SR); 
For i:=1 To Tin Do
begin
ListBox2.Items.Add(gPath + '\' + SR.Name);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;
end;

Почему-то получается найти только пустое имя(тоесть = ''). Вопрос: Как тогда найти настоящие имя?

[Stilet]

For i:=1 To Tin Do

Это что? FindFirst не возвращает количество файлов. По сути это итератор, который каждый раз при вызове собрата FindNext возвращает следующий файл в каталоге, но никак не все сразу списком.

Кстати стесняюсь спросить: Эта тема (http://www.programmersforum.ru/showt...=218592&page=2) ничем не помогла?

[саша40]

Сообщение от Stilet

Это что? FindFirst не возвращает количество файлов. По сути это итератор, который каждый раз при вызове собрата FindNext возвращает следующий файл в каталоге, но никак не все сразу списком.

ммм. тогда как сделать правильно, что-то не пойму?

[Stilet]

Посмотри внимательно мой пост №15.
Сначала вызывается FindFirst, который создает итератор (переменную принимающую на каждом витке цикла очередное его значение, и косвенно указывающую на следующее значение). В примере итератор - SR. Если итератор создан, т.е. каталог существует то результат функции будет SUCCESS равный нулю. Если происходит ошибка - результатом является код ошибки, который с помошью SysErrorMessage можно превратить в строку и почитать.
Далее идет цикл, где твоя программа колдует над очередным полем итератора по имени Name. Это имя файла.
После чего until вызывает следующую итерацию при помоши FindNext продолжая поиск, выбирая в итератор следующий файл (его описание), и так пока FindNext не вернет значение не равное нулю - это значит файлов более нет, или каталог поврежден.

Таким образом работают генераторы FindFirst...FindNext, возвращая новый элемент поочередно но никак не сразу всем скопом.

[Человек_Борща]

Тс, http://www.delphibasics.ru/
Прочитайте там о FindFirst, FindNext, FindClose и ваши проблемы решатся...

[sariman]

Держите:

procedure GetAllFiles(Path: string);
var
  sRec: TSearchRec;
  isFound: Boolean;
begin
  isFound := FindFirst(Path + '\*.*', faAnyFile, sRec) = 0;
  Path := IncludeTrailingPathDelimiter(Path);
  while isFound do
  begin
    if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then
        GetAllFiles(Path + sRec.Name, ListBox);
      ListBox1.Items.Add(sRec.Name);
      ListBox2.Items.Add(Path + sRec.Name);
    end;
    Application.ProcessMessages;
    isFound := FindNext(sRec) = 0;
  end;
  FindClose(sRec);
end;

[саша40]

Сообщение от sariman

Держите:

procedure GetAllFiles(Path: string);
var
  sRec: TSearchRec;
  isFound: Boolean;
begin
  isFound := FindFirst(Path + '\*.*', faAnyFile, sRec) = 0;
  Path := IncludeTrailingPathDelimiter(Path);
  while isFound do
  begin
    if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then
       
      ListBox1.Items.Add(sRec.Name);
      ListBox2.Items.Add(Path + sRec.Name);
    end;
    Application.ProcessMessages;
    isFound := FindNext(sRec) = 0;
  end;
  FindClose(sRec);
end;

Спасибо. Но тут похоже должно писатся так:

GetAllFiles(gPath + sRec.Name);

Но есть проблема, после добавления папки в плейлист(или куда ещё), не может воспроизвести файл, вопрос: Почему?

[саша40]

Сообщение от саша40

Спасибо. Но тут похоже должно писатся так:

GetAllFiles(gPath + sRec.Name);

Но есть проблема, после добавления папки в плейлист(или куда ещё), не может воспроизвести файл, вопрос: Почему?

нет сори всё робит. Спасибо огромное. Отзыв написал. Буду продолжать. Кстати:

Application.ProcessManager;

Я закоментил, может его обратно раскоментить?

[sariman]

Если эту строку убрать, приложение может не реагировать на действия пользователя, пока весь список не загрузится.

[саша40]

Сообщение от sariman

Если эту строку убрать, приложение может не реагировать на действия пользователя, пока весь список не загрузится.

Тоесть если я её раскоменчу, то пока список не закончится приложение не будет реагировать, верно?