Delphi 用标准 Windows GUI 窗口打开文件

Question

我希望能够使用 Windows GUI 在 Delphi 中打开文件，您可以在其中滚动文件夹等。我已经使用 Matlab 使用单个函数完成了此操作，该函数(选择文件后)返回路径字符串。您可以指定要显示的扩展名。 delphi中有这种功能吗？我应该如何使用它。

Answer 1

您可以使用TOpenDialog组件是对话框单元的一部分。您可以在运行时创建或从对话框面板中删除该组件。

如果将组件拖放到表单中，则可以通过这种方式使用

 OpenDialog1.Filter := 'Only Text files (*.txt)|*.txt';
 if OpenDialog1.Execute then
  //do you stuff here

或者如果您在运行时创建组件

Var
  OpenDialog1 : TOpenDialog;
begin
 OpenDialog1:=TOpenDialog.Create(nil);
 try
   OpenDialog1.Filter := 'Only Text files (*.txt)|*.txt';
   if OpenDialog1.Execute then
    ShowMessage('Selected File '+OpenDialog1.FileName);
 finally
   OpenDialog1.Free;
 end;

end;