请问高手门MEMO控件的基础应用

Question

我是个小菜,有button1控件,OpenDialog1控件
怎么把外部的资料,TXT文档的内容导入进MEMO里
从上向下显示,一行一个
谢谢,基础比较差

Answer 1

if OpenDialog1.Excute then
  Memo1.LoadFromFile(OpenDialog1.FileName);

Answer 2

if dlgOpen1.Execute then
  mmo1.Lines.LoadFromFile('Puzzle.txt');end;

Answer 3

if dlgOpen1.Execute then 
  mmo1.Lines.LoadFromFile(dlgOpen1.FileName);

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  f: TextFile;
  sText: String;
begin
  OpenDialog1.Filter := '.txt';
  if OpenDialog1.Execute then
    sText := OpenDialog1.FileName;
  try
    AssignFile(f,sText);
    Reset(f);
    Memo1.Clear;
    while not eof(f) do
    begin
      ReadLn(f,sText);
      Memo1.Lines.Append(sText);
      //Memo1.Lines.Add(sText);
    end;
  finally
    CloseFile(f);
  end;
end;