Поправить код- открытие файла по очередно

[Максим_maks]

Нашел такой код. Он полностью устраивает, за исключением того - как реализовать правильно: открыть сначала 1 файл поместить все в Memo, закрыть файл, открыть следующий и т.д.

procedure AllTXTtoMemo(Dir, Masc: string; Memo: TMemo);
var
  searchResult : TSearchRec;
  Buff: TStringList;
begin
  Memo.Clear;
  Buff := TStringList.Create;
  if Dir[Length(Dir)] <> '\' then
    Dir := Dir + '\';
  if Masc = '' then Masc := '*.*';
  if FindFirst(Dir + Masc, faAnyFile - faDirectory, searchResult) = 0 then
  begin
    repeat
      Buff.LoadFromFile(Dir + searchResult.Name);
      Memo.Lines.Add('------------------------------');
      Memo.Lines.AddStrings(Buff);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
  Buff.Free;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  AllTXTtoMemo('D:\1\', '*.eml', Memo);
end;

[northener]

Сообщение от Максим_maks

Нашел такой код. Он полностью устраивает, за исключением того - как реализовать правильно

Ну просто умора. Полностью устраивает, но не знаю как правильно реализовать.
Чем же он тогда полностью устраивает?

[Stilet]

открыть сначала 1 файл поместить все в Memo, закрыть файл, открыть следующий и т.д.

А этот код что делает? Вроде как именно это же?

[Serge_Bliznykov]

Максим_maks, данный код как раз и загружает все найденные файлы в одно Memo.
Что не так?!

[Человек_Борща]

Что не так?!

Он его из интернетов скачал

[Serge_Bliznykov]

Сообщение от Человек_Борща

Он его из интернетов скачал

да скачал и молодец!
Код то выглядит рабочим. Что автора топика в нём не устроило?

[Stilet]

По-моему автор уже давно разобрался.

[Максим_maks]

С кодом который наверху все Ок. Как его подружить с кодом ниже?

unit Unit1;
  
{$mode objfpc}{$H+}
  
interface
  
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mimemess, mimepart, ExtCtrls, ComCtrls, ActiveX;
  
type
  
  { TForm1 }
  
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure GetParts(const part: TMimepart);
  private
    { private declarations }
  public
    { public declarations }
  end;
  
var
  Form1: TForm1;
    IdMes:TMimeMess;
  
implementation
  
{$R *.lfm}
  
{ TForm1 }
  
  
procedure TForm1.GetParts(const part: TMimepart);
var
  s: string;
  i: integer;
begin
  if (LowerCase(part.Primary)='text') and (LowerCase(part.FileName)='')  then  //Проверим  что данный блок - текст сообщения
  begin
  part.DecodePart;
    if LowerCase(part.Secondary)='plain'   then    // Определяем что это простой текст
         Memo1.Lines.LoadFromStream(part.DecodedLines); // Загружаем раскодированные данные
    end;
  
  for i := 0 to part.GetSubPartCount - 1 do
    GetParts( part.getsubpart(i));     // проверяем наличие следующего блока
end;
  
  
  
  
  
procedure TForm1.Button1Click(Sender: TObject);
  var
i:integer;
begin
  if OpenDialog1.Execute then
  begin
    IdMes:=TMimeMess.Create;
    IdMes.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
    IdMes.DecodeMessage;     // Раскодируем сообщение, обязательно
    Memo2.Lines.Assign(IdMes.Header.CustomHeaders); // Заголовки, не спицифичные для формата MIME
    GetParts(IdMes.MessagePart);    // рекурсивная процедура обхода блоков сообщения
  
  
end;
  
  
end.