[IvinVol]

Помогите плиз, как открыть все файлы, находящиеся в указанной папке. Программно, т.е. кликнул на кнопку и в один, скажем, Memo, записалось содержимое всех файлов находящихся в указанной папке.

[lmikle]

Использовать FindFirst/FindNext/FindClose.

Код:

procedure ListFiles(APath  : String; var AList : TStringList);
var
  iFound : Integer;
  F : TSearchRec;
begin
  AList.Clear;
  iFound := FindFirst(APath + '*.*',faAnyFile,F);
  While iFound = 0 Do
    Begin
       If (F.Attr And faDirectory) = 0 Then AList.Add(F.Name);
       iFound := FindNext(F);
    End;
  FindClose(F);
end;

[IvinVol]

Спс, буду разбираться.