如何用opendialog打开一个txt文件

Question

窗体上只有一个opendialog和一个Button组件，没有Richedit和Memo之类的文本框，有没有什么方法可以在选取文件后自动新建一个Richedit把txt里的文本加进去？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
VAR mo :TMemo;
begin
  mo:=TMemo.Create(self);
  mo.ParentWindow :=self.Handle ;
  mo.Left :=0;
  mo.Top :=0;
  mo.Width :=400;
  mo.Height :=300;
  mo.Lines.LoadFromFile('C:\boot.ini');end;