Код:
procedure TForm1.Button1Click(Sender: TObject);
procedure AddTextFileToMemo(FN: String);
var
F: TStringList;
begin
F:=TStringList.Create;
F.LoadFromFile(FN);
Memo1.Lines.Add(FN);
Memo1.Lines.AddStrings(F);
Memo1.Lines.Add('---');
F.Free;
end;
var
SR: TSearchRec;
begin
Memo1.Clear;
if not DirectoryExists(Edit1.Text) then Exit;
if FindFirst(Edit1.Text + '*.txt', faAnyFile, SR) = 0 then
begin
AddTextFileToMemo(Edit1.Text + SR.Name);
while FindNext(SR) = 0 do
if SR.Attr and faDirectory <> faDirectory then
AddTextFileToMemo(Edit1.Text + SR.Name)
end;
FindClose(SR);
end; |