Склеиватель *.txt

[Хортюк]

Вообщем уже вторую неделю ломаю голову над кодом который смог бы в указанной папке и её подпапках отыскать все *.txt файлы и связать их в один большой. Не получается поиск файлов, юзаю поиск неделю, но никак не могу найти то что надо, либо есть поиск в отдельно взятой папке без подпапок, либо поиск ВСЕХ файлов в папке/диске. Код нужен позарез, Help me народ

[MaxNik2009]

либо поиск ВСЕХ файлов в папке/диске

ну и ищи тогда все файлы, и проверяй их расширение (ExtractFileExt).

[Serge_Bliznykov]

плохо искали. на форуме было такое.
Но не буду посылать в поиск. приведу пример кода:

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

// ИСПОЛЬЗОВАТЬ ТАК:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);
end;

p.s. для склеивания _очень_ рекомендую использовать TFileStream