(一个简单问题)请问怎样把 Memo1 中的文字内容写入到一个文本文件中？

Question

  SORRY，问这样的愚蠢问题是耽误大家的时间，但我确实想不起来怎样解决这个问题了，所以只好请大家帮帮我，应该怎样做？写出部分代码即可

Answer 1

var MyTextFile:TextFile; i : integer;
begin
  AssignFile(MyTextFile,NameHdr);
  ReWrite(MyTextFile);
  for i:=0 to memo1.Lines.Count-1 do  
    WriteLn(MyTextFile,memo1.Lines[i]);
  CloseFile(MyTextFile);
end;

Answer 2

memo1.Lines.SaveToFile(sｆｉｌｅｎａｍｅ)

Answer 3

var     MyTextFile:TextFile;
    I:integer;
begin
  try
    AssignFile(MyTextFile,NameHdr);
    ReWrite(MyTextFile);
    for i:=0 to Memo1.lines.count-1 do
    WriteLn(MyTextFile,Memo1.lines[i];
  finally
    CloseFile(MyTextFile);
  end;
end;

Answer 4

fengu0082(随意)说得对：
memo1.Lines.SaveToFile(filename);//保存memo1.Lines.LoadFromFile(filename);//读取
================================================================
我是中国鹰派！
拒绝日货！打倒小日本！