TOpenDialog/zh CN

│ English (en) │ français (fr) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

TOpenDialog 就是打开文件的弹窗，在 Dialogs tab 的 Component Palette.

procedure TForm1.Button1Click(Sender: TObject);
var
  s:String;
begin
  try
  OpenDialog1.Execute;
  s := OpenDialog1.FileName;
  Form1.Caption  := s;
  Memo1.Lines.LoadFromFile(s);
  except
   on E: Exception do
    //ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
    ShowMessage('忘记选择文件或者选择的文件不存在');
  end;
end;

参考资料

• TOpenDialog doc
• Howto Use TOpenDialog
• TOpenPictureDialog