关于将不同txt文件写入同一个memo中的问题

Question

memo.lines.loadfromfile();
只能将一个文件写入memo
现在有3-4个txt
请问如何写入同个memo

Answer 1

先用TStringList加载txt，然后在add到memo中吧。

Answer 2

自己写一个load过程，先全部读到StringList里面去，最后一次性写入Memo

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
procedure TxtFileRead(s: string; sl: TStringList);
var
  i: integer;
  sTemp: TStringList;
begin
  sTemp := TStringList.Create;
  sTemp.LoadFromFile(s);
  for i:=0 to sTemp.Count-1 do
    sl.Add(sTemp[i]);
  sTemp.Free;
end;
begin
  sl := TStringList.Create;
  TxtFileRead('1.txt', sl);
  TxtFileRead('2.txt', sl);
  TxtFileRead('3.txt', sl);
  TxtFileRead('4.txt', sl);
  for i:=0 to sl.Count-1 do
    Memo1.Lines.Add(sl[i]);
  sl.Free;
end;

Answer 4

第一个load，后面的用add追加就是了