Вывести все файлы диры

[Mihanches]

http://www.kansoftware.ru/?tid=2018 - тут я нашел исходник, для того что бы вывести список файлов в определенной директории.
И вроде бы все просто и понятно... Но...
procedure ListFileDir(Path: string; FileList: TStrings); - эта строка вызвала у мну вопрос: А где лежит этот компонент ListFileDir ?)
P.S. Искал в дельфи 7 и 6 во вкладке win3.1 (мне почему то показалось, что он из их группы).

[DIgorevich]

Это не компонент, а процедура:

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

ее просто надо так и написать перед вызовом

[Mihanches]

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

Это не компонент, а процедура

ее просто надо так и написать перед вызовом

Куда ее вписать? Я прост чуть умнее чайника в дельфи

[DIgorevich]

а почему бы в таком случае не почитать книжку? Прямо так копируй и пиши перед процедурой (к примеру, нажатия кнопки).