список ТХТ

[viks1]

Доброго времени суток.
Подскажите пожалуйста, есть ли такой компонент, который представил список всех файлов ТХТ в текущем каталоге?, что бы потом мог открыть по отдельности? типа маленького проводника?

[Shouldercannon]

procedure FilesInDirectory(Path: string; List: TStringList);
var
  SR: TSearchRec;
begin
  if FindFirst(Path, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faAnyFile) then
      if not ((SR.Name = '.') or (SR.Name = '..')) then List.Add(SR.Name);
    until FindNext(SR) <> 0;

    FindClose(SR);
  end;
end;

Получение списка файлов папки

[Аватар]

ShellListView в закладке Samples (D7)

[viks1]

Спасибо... я нашел Этот объект, только вот... не могу понять, куда код вставлять?
я понимаю что в Юнит... но нажав два раза на объект я наткнулся на его диалоговое окно

[Shouldercannon]

Вот пример