问一个菜鸟问题~请指教，如何打开一个指定的文件~

Question

比如说，有一个button1和一个memo1 。想通过按钮，来找到一个指定的文本文件并将内容显示到memo1中！~
就象在OFFFICE中，打开一个我们指定的.doc文件一样~
谢谢~最好能把原代码写上~~~

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
begin
  memo1.Lines.LoadFromFile('c:\1.txt');
end;

Answer 2

大哥，你没理解我的意思~~
我要能去查找路径的 ~象word中的打开功能~~

Answer 3

if OpenDialog.Execute then
  memo1.Lines.LoadFromFile(OpenDialog.FileName);

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  open: TOpenDialog;
begin
  open :=  TOpenDialog.Create(nil);
  try
    if open.Execute then
      memo1.Lines.LoadFromFile(open.FileName);
  finally
    open.Free;
  end;
end;

Answer 5

meiqingsong(阿飛) ：
  谢谢你~~!!! 调试很顺利~

Answer 6

meiqingsong(阿飛) 这种只能打开文本文件，
你要调用word打开,得用winexec()等

Answer 7

uses shellapi;
然后用:shellexecute(form1.handle,'open',pchar('路径+文件名'),'-s','',sw_shownormal);
这样的话可以通过文件关联打开任何windows能打开的文件；