FileOpen 怎么打开一个txt文件写到memo里去。。。

Question

我用ActionManager和ActionMainMenuBar做了菜单菜单里添加了standard action（TFileOpen），现在接下来怎么实现  打开txt的文件并把内容写到meno里去就是这个意思！新手，不知道FileOpen怎么弄的，是不是这样就不用OpenDialog来打开文件了？

Answer 1

双击fileopen，即可建立它的执行事件
主要的代码是：
if not opendialog.execute then
  exit;
memo1.lines.loadfromfile(opendialog.filename);

Answer 2

OpenDialog只是负责生成一个全路径，打开靠自己不用OpenDialog，就这样   memo1.lines.loadfromfile(filepath);

Answer 3

楼上都可以，另外需要注意你的TXT文件的编码，否则有可能加载的是乱码

Answer 4

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;