delphi - 在 Delphi 中将两个文本文件加载到一个 TMemo 组件中的最佳方法是什么？

Question

假设我有两个文本文件 (.txt)，并且有一个带有一个 TMemo 组件的表单。将两个文本文件快速加载到同一个备忘录中的最佳方法是什么？

Answer 1

使用TStringList加载每个文件，然后使用AddStrings将内容传输到备忘录的方法。

var
  Tmp: TStringList;
...
Memo1.Lines.BeginUpdate;
try
  Memo1.Lines.Clear;
  Tmp := TStringList.Create;
  try
    Tmp.LoadFromFile(FileName1);
    Memo1.Lines.AddStrings(Tmp);

    Tmp.LoadFromFile(FileName2);
    Memo1.Lines.AddStrings(Tmp);
  finally
    Tmp.Free;
  end;
finally
  Memo1.Lines.EndUpdate;
end;

事实上，这可以很容易地推广到一个潜在有用的方法，如下所示:

procedure AppendMultipleTextFiles(Dest: TStrings; const FileNames: array of string);
var
  FileName: string;
  Tmp: TStringList;
begin
  Dest.BeginUpdate;
  try
    Tmp := TStringList.Create;
    try
      for FileName in FileNames do
      begin
        Tmp.LoadFromFile(FileName);
        Dest.AddStrings(Tmp);
      end;
    finally
      Tmp.Free;
    end;
  finally
    Dest.EndUpdate;
  end;
end;

然后您可以使用如下方法:

Memo1.Lines.Clear;
AppendMultipleTextFiles(Memo1.Lines, [FileName1, FileName2]);