Поиск функции FindAllFiles

[igordz]

Добрый день, в Lazarus для поиска файлов использую функцию FindAllFiles которая объявлена в FileUtil.pas

Код: Выделить всё

function FindAllFiles(const SearchPath: String; SearchMask: String = '';
  SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory): TStringList; overload;

Подскажите пожалуйста где я могу найти описание тела функции (код функции) в FileUtil.pas только описание заголовка даной функции.

[olegy123]

Код: Выделить всё

procedure FindAllFiles(AList: TStrings; const SearchPath: String;
  SearchMask: String; SearchSubDirs: Boolean; DirAttr: Word);
var
  Searcher: TListFileSearcher;
begin
  Searcher := TListFileSearcher.Create(AList);
  Searcher.DirectoryAttribute := DirAttr;
  try
    Searcher.Search(SearchPath, SearchMask, SearchSubDirs);
  finally
    Searcher.Free;
  end;
end;

function FindAllFiles(const SearchPath: String; SearchMask: String;
  SearchSubDirs: Boolean; DirAttr: Word): TStringList;
begin
  Result := TStringList.Create;
  FindAllFiles(Result, SearchPath, SearchMask, SearchSubDirs, DirAttr);
end;

в файле fileutil.inc.

[wavebvg]

Можно воспользоваться Lazarus-ом: находясь в заголовке (описании функции или метода в секции interface) нажать сочетание alt+shift+down_key

[beria]

где я могу найти описание тела функции

Я вообще не всегда лазарусом заморачиваюсь, а просто фаром ищу среди файлов все сслылки на слово. Там тебе и примеры применения находятся и само тело функции....