Вывод папок... (TSearchRec)

[zotox]

Как вывести список папок?(TSearchRec)
Вот накатал кусок кода... Но он не пашет почему то (зависает при нажатии на кнопку)

FindRes:=FindFirst('c:\*.*',faDirectory,SR); //Пробывал и 'c:\*'

While FindRes=0 do
  begin
   if ((SR.Attr and faDirectory)=faDirectory) then
    begin
     StringGrid1.Cells[0,i]:=SR.Name;
     FindRes:=FindNext(SR);
     i:=i+1;
     StringGrid1.RowCount:=i;
    end;
  end;

Помогайте чтоль

[profi]

procedure TForm1.Button1Click(Sender: TObject);

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;

  with StringGrid1 do
  begin
    RowCount := 0;

    FileAttrs := FileAttrs + faAnyFile;

    if FindFirst(С:\*.*, FileAttrs, sr) = 0 then

    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

Пример откопал в справке Delphi.

[zotox]

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

procedure TForm1.Button1Click(Sender: TObject);

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;

  with StringGrid1 do
  begin
    RowCount := 0;

    FileAttrs := FileAttrs + faAnyFile;

    if FindFirst(С:\*.*, FileAttrs, sr) = 0 then

    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

Пример откопал в справке Delphi.

Че то не хочет пахать (выводит все файлы/папки как обычно)
Но все равно спасибо!

[quit]

Пример из DelphiWorld...

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR);
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Continue; // продолжить цикл
    end;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

[Stilet]

zotox

Смотрел в свою предидущую тему?
http://www.programmersforum.ru/showt...t=57673&page=2

Или мне эту считать кросспостом?

[zotox]

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

Смотрел в свою предидущую тему?
http://www.programmersforum.ru/showt...t=57673&page=2

Или мне эту считать кросспостом?

Как это? Там же просто путешествие по папкам (а там выводятся папки+файлы) Или я что-то не так говорю?

quit ок спасибо, чуть позже отпишусь получилось или нет

[Stilet]

Там же просто путешествие по папкам

А механизм путеществия (процедура та) и есть ответ на твой вопрос.

[zotox]

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

А механизм путеществия (процедура та) и есть ответ на твой вопрос.

Как это? То есть ваш пост на второй странице той темы и есть ответ на мой вопрос? (Как вывести токо папки)
Да не может быть такого! Я токо что запихивал ваш код (который тода написали на второй странице)(+ менял еще что-то...) и он мне выводил файлы и папки, а мне нужны токо папки (quit, ваш код потом испытаю как я говорил )

[Serge_Bliznykov]

на ровном месте проблему раздули..
zotox, если Вам нужно вывести папки только из текущего каталога (не обрабатывая вложенные подкаталоги) и Вам понятен Ваш код из поста #1
то, чтобы он работал, достаточно переход на следующий элемент вынести за проверку на каталог (у Вас он происходит только для папок, встречается любой файл и всё - "висяк"...:

FindRes:=FindFirst('c:\*.*',faDirectory,SR); //Пробывал и 'c:\*'

While FindRes=0 do
  begin
   if ((SR.Attr and faDirectory)=faDirectory) then
    begin
     StringGrid1.Cells[0,i]:=SR.Name;
     i:=i+1;
     StringGrid1.RowCount:=i;
    end;
    FindRes:=FindNext(SR);
  end;

[zotox]

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

на ровном месте проблему раздули..
zotox, если Вам нужно вывести папки только из текущего каталога (не обрабатывая вложенные подкаталоги) и Вам понятен Ваш код из поста #1
то, чтобы он работал, достаточно переход на следующий элемент вынести за проверку на каталог (у Вас он происходит только для папок, встречается любой файл и всё - "висяк"...:

FindRes:=FindFirst('c:\*.*',faDirectory,SR); //Пробывал и 'c:\*'

While FindRes=0 do
  begin
   if ((SR.Attr and faDirectory)=faDirectory) then
    begin
     StringGrid1.Cells[0,i]:=SR.Name;
     i:=i+1;
     StringGrid1.RowCount:=i;
    end;
    FindRes:=FindNext(SR);
  end;

Огромное спасибо! Уяснил свою ошибку! Тему можно удалять!