如何通过“打开对话框”，把文件的内容复制到“memo1组件”中？

Question

我想实现：通过“打开对话框”打开txt文本，把文件的内容复制到“memo1组件”中!
请高手指教！

Answer 1

var
  o: TOpenDialog;
begin
  o:= TOpenDialog.Create(nil);
  o.Filter:= '文本文件|*.txt';
  if o.Execute then
    Memo1.Lines.LoadFromFile(o.FileName);
  o.Free;
end;

Answer 2

if OpenDialog.Execute then
    Memo1.Lines.Add(OpenDialog.FileName);如果是用这个的话，应该怎么写？
为什么要重新定义一个打开对话框呢？
用原来的打开组件不能实现这个功能吗？

Answer 3

if OpenDialog1.Execute then
  Memo1.Lines.Add(OpenDialog1.FileName);
这个也没啥不可以啊，自己多测试，二楼大牛的代码和你的效果是一样的。