Вывод содержимого папки

[Shouldercannon]

Посмотрел на форуме и в инете способы вывода содержимого папки. Все они работают на что-то одно (только вывод файлов или вывод каталогов), но не нашёл ни одного, который выводил бы всё сразу. Может у кого есть примеры?

[Serge_Bliznykov]

Вы не правы.
На форуме такие вопросы решались неоднократно.
обыкновенный FindFirst легко решает Вашу задачу.

вот, за пять минут "на коленке" набросал...

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;

var
  Dir : String;
  SearchRec: TSearchRec;
begin
  WriteLn;
  Write('What''s directory need dir ? ');
  Readln(Dir);

  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
           WriteLn(Dir + SearchRec.name,'  <DIR>  ')
      end
      else
         WriteLn(Dir + SearchRec.name,' ',SearchRec.Size);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end.

[BOBAH13]

FindFirstFile + FindNextFile и вперед с песней

[Shouldercannon]

var
  searchResult: TSearchRec;
begin
  Memo1.Clear;

  SetCurrentDir(Edit1.Text);

  if FindFirst('*.*', faAnyFile, searchResult) = 0 then
    begin
      repeat
      Memo1.Lines.Add(searchResult.Name);
      until FindNext(searchResult) <> 0;

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

[Serge_Bliznykov]

1) не очень корректно!
У Вас FindClose Выполнится только если найдётся хоть один файл. Зачем Вы его внесли внутрь проверки?!

2) у Вашей программы сильный побочный эффект - она меняет текущий каталог.
А вот объясните ЗАЧЕМ делать указанную в Edit1 папку текущей?!
написать так и проще и надёжнее:

if FindFirst(IncludeTrailingBackslash(Edit1.Text)+'*.*', faAnyFile, searchResult) = 0 then

3) а где проверка на то, что в Edit1 может быть написана несуществующая папка?!


p.s. Впрочем, если Вас Ваш код удовлетворяет, то я за Вас рад!

[Shouldercannon]

1. Вожможно. Пример брал с сайта и не очень вник в суть. Подскажите пожалуйста как будет правельно.
2. Спасибо за поправку
3.

                  if DirectoryExists(RCText1) then
                    begin
                      if FindFirst(IncludeTrailingBackslash(Edit1.Text) + '*.*', faAnyFile, searchResult) = 0 then
                        begin
                          repeat
                          Browse.Add(searchResult.Name);
                          until FindNext(searchResult) <> 0;

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

[Grag]

Хоцца сделать маленькое уточнение по поводу функции IncludeTrailingBackslash ( const S: string ): string;

Взято из справочника по функциям...
III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

4. Функции и процедуры для работы с именем файла
Функция IncludeTrailingBackslash ( const S: string ): string;
== Данная функция поддерживается только в Delphi 5 ==

Модуль: SysUtils

[Shouldercannon]

Исходя из выше написанного функцию IncludeTrailingBackslash ( const S: string ): string; бесмысленно использовать в Delphi 7 и выше.

[Stilet]

Исходя из выше написанного

Не исходи оттудова. Исходи и того что попробуешь

Данная функция поддерживается только в Delphi 5

Ложь и провокация:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
 writeln(IncludeTrailingBackslash('c:\temp'));readln;
end.

Проверено на D2010 и D6. Результат:

c:\temp\

[Grag]

Если честно, то сам не проверял, просто написал то, что видел лично в справочнике. Если не так, то уж извините великодушно, плиз!!!