Не заносятся пути для всех файлов после FindFirst

[artemavd]

Добрый вечер! Делаю поиск по папке. Нужно ее содержимое представить в StringGrid'e: имя файла и путь к нему. Вот мой код:

procedure TForm1.ShellTreeView2Change(Sender: TObject; Node: TTreeNode);
var
 path_2: string;
 SR,SR_2: TSearchRec;
 FindRes,i,j:Integer;
 kol,kol_2: TStringList;
begin
 kol:=TStringList.Create;
 Form1.RzStatusPane36.Caption:=Form1.ShellTreeView2.Path + '\';
 Form1.ListBox3.Clear;
 FindRes:=FindFirst(Form1.RzStatusPane36.Caption + '*.pdf',faAnyFile,SR);
 while FindRes = 0 do
 begin
  if (SR.Name <> '.') or (SR.Name <> '..') then
  begin
   kol.Add(SR.Name);
   Form1.RzStatusPane38.Caption:=IntToStr(kol.Count);
   Form1.ListBox3.Items.Add(SR.Name);
   FindRes:=FindNext(SR);
   Form1.RzStringGrid19.RowCount:=Form1.ListBox3.Items.Count;
   for i:= 0 to Form1.ListBox3.Items.Count - 1 do
   Form1.RzStringGrid19.Cells[0,i]:=Copy(ListBox3.Items[i],1,Pos('.',ListBox3.Items[i])-1);
   for j:=0 to Form1.ListBox3.Items.Count - 1 do
   Form1.RzStringGrid19.Cells[1,j]:=Form1.RzStatusPane36.Caption + SR.Name;
  end;
 end;
 FindClose(SR);
end;

В StringGrid у меня выводятся сами файлы правильно в первую колонку, с этим проблем нет, а во второй колонке напротив каждого файла должен находится путь к файлу. В

Form1.RzStatusPane36.Caption

хранится путь к папке, в которой поиск осуществляется. А у меня во вторую колонку заносится путь только для первого файла. Подскажите как правильно надо записать?

[oleg.v]

Пример кода : Ищем все каталоги выше, включая текущий

var
  searchResult : TSearchRec;

begin
  // Пробуем найти каталоги выше текущего каталога
  SetCurrentDir('..');

  if FindFirst('*', faDirectory, searchResult) = 0 then
  begin
    repeat
      // Показываем только каталоги
      if (searchResult.attr and faDirectory) = faDirectory
      then ShowMessage('Directory = '+searchResult.Name);
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

[artemavd]

И что? Мне не это нужно. Мой код прекрасно ищет все, мне нужны пути к найденным файлам получить. Мне и не надо по все подпапкам искать, код должен работать только для конкретной папки.

[Аватар]

бегло просмотрел (нет времени вникать в суть проблемы),

//заменить
  if (SR.Name <> '.') or (SR.Name <> '..') then
//на
  if (SR.Name <> '.') and (SR.Name <> '..') then
//и после команды:
  FindRes:=FindNext(SR);
//цикл
  for j:=0 to Form1.ListBox3.Items.Count - 1 do 
    Form1.RzStringGrid19.Cells[1,j]:=Form1.RzStatusPane36.Caption + SR.Name;
//будет работать уже с другим файлом (если вообще будет)

Кстати если if (SR.Name <> '.') or (SR.Name <> '..') then не выполится то похоже вообще зациклит, поскольку FindNext(SR) не будет отрабатывать

[artemavd]

Кстати если if (SR.Name <> '.') or (SR.Name <> '..') then не выполится то похоже вообще зациклит, поскольку FindNext(SR) не будет отрабатывать

Ээээммм...не совсем понял. Можно подробнее пояснить? Вроде бы в других местах программы работает.
Вот, сделал так:

procedure TForm1.ShellTreeView2Change(Sender: TObject; Node: TTreeNode);
var
 path_2: string;
 SR,SR_2: TSearchRec;
 FindRes,i,j:Integer;
 kol,kol_2: TStringList;
begin
 kol:=TStringList.Create;
 Form1.RzStatusPane36.Caption:=Form1.ShellTreeView2.Path + '\';
 Form1.ListBox3.Clear;
 FindRes:=FindFirst(Form1.RzStatusPane36.Caption + '*.pdf',faAnyFile,SR);
 while FindRes = 0 do
 begin
  if (SR.Name <> '.') and (SR.Name <> '..') then
  begin
   kol.Add(SR.Name);
   Form1.RzStatusPane38.Caption:=IntToStr(kol.Count);
   Form1.ListBox3.Items.Add(SR.Name);
   FindRes:=FindNext(SR);
   Form1.RzStringGrid19.RowCount:=Form1.ListBox3.Items.Count;
   for i:= 0 to Form1.ListBox3.Items.Count - 1 do
   for j:=0 to Form1.ListBox3.Items.Count - 1 do
   Form1.RzStringGrid19.Cells[0,i]:=Copy(ListBox3.Items[i],1,Pos('.',ListBox3.Items[i])-1);
   Form1.RzStringGrid19.Cells[1,j]:=Form1.RzStatusPane36.Caption + SR.Name;
  end;
 end;
 FindClose(SR);
end;

Вроде работает как надо, но только для первого значения не выводится. Начинает выводит только со второго....а надо-то и с первого..

[Stilet]

FindRes:=FindNext(SR);

А почему он в середине? Вроде как по логике в конце должон быть.

for i:= 0 to Form1.ListBox3.Items.Count - 1 do
for j:=0 to Form1.ListBox3.Items.Count - 1 do

А это зачем??

[artemavd]

Виталий, виноват, это лишняя строка . Вот, подправил немного код:

procedure TForm1.ShellTreeView2Change(Sender: TObject; Node: TTreeNode);
var
 path_2: string;
 SR,SR_2: TSearchRec;
 FindRes,i,j:Integer;
 kol,kol_2: TStringList;
begin
 kol:=TStringList.Create;
 Form1.RzStatusPane36.Caption:=Form1.ShellTreeView2.Path + '\';
 Form1.ListBox3.Clear;
 FindRes:=FindFirst(Form1.RzStatusPane36.Caption + '*.pdf',faAnyFile,SR);
 while FindRes = 0 do
 begin
  if (SR.Name <> '.') and (SR.Name <> '..') then
  begin
   kol.Add(SR.Name);
   Form1.RzStatusPane38.Caption:=IntToStr(kol.Count);
   Form1.ListBox3.Items.Add(SR.Name);
   Form1.RzStringGrid19.RowCount:=Form1.ListBox3.Items.Count;
   FindRes:=FindNext(SR);
   for i:= 0 to Form1.ListBox3.Items.Count - 1 do
   Form1.RzStringGrid19.Cells[0,i]:=Copy(ListBox3.Items[i],1,Pos('.',ListBox3.Items[i])-1);
   Form1.RzStringGrid19.Cells[1,i]:=Form1.RzStatusPane36.Caption + SR.Name;
  end;
 end;
 FindClose(SR);
end;

по-прежнему в столбец [1,i] записи начинают выводится со второй строки....как бы это исправить?

[Stilet]

Ты помоему запутался в трех соснах.
Вот вариант попроще и работает как надо:

 while FindRes = 0 do
 begin
  if (SR.Name <> '.') and (SR.Name <> '..') then
  begin
   kol.Add(SR.Name);
   Caption:=IntToStr(kol.Count);
   Form1.ListBox3.Items.Add(SR.Name);
   Form1.RzStringGrid19.RowCount:=Form1.ListBox3.Items.Count;
   with  Form1.RzStringGrid19 do begin
    Cells[0,RowCount-1]:=Copy(SR.Name,1,Pos('.',SR.Name)-1);
    Cells[1,RowCount-1]:=Caption + SR.Name;
    RowCount:=RowCount+1;
   end;
  end;
  FindRes:=FindNext(SR);
 end;
 FindClose(SR);

А то что ты навертел - это перебор однозначно, масштабированию не подлежит.

[artemavd]

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