delphi OpenDialog函数如何用

Delphi 中的 OpenDialog 是一个常用的标准对话框，可以用于选择一个或多个文件或文件夹。使用 OpenDialog，您可以方便地提供一个标准的文件选择器，以便用户可以选择要打开或保存的文件。

以下是使用 OpenDialog 的示例代码：

var
  OpenDialog1: TOpenDialog;
begin
  OpenDialog1 := TOpenDialog.Create(nil);
  try
    // 设置对话框的标题
    OpenDialog1.Title := '选择文件';

    // 设置对话框的过滤器，只显示 txt 文件
    OpenDialog1.Filter := '文本文件 (*.txt)|*.txt';

    // 显示对话框，如果用户点击了 OK 按钮，则返回 True
    if OpenDialog1.Execute then
    begin
      // 获取用户选择的文件名
      ShowMessage('你选择的文件是：' + OpenDialog1.FileName);
    end;
  finally
    OpenDialog1.Free;
  end;
end;

在上面的示例代码中，我们创建了一个 TOpenDialog 对象，并设置了对话框的标题和过滤器，然后调用 Execute 方法显示对话框。如果用户点击了 OK 按钮，则会返回 True，然后可以通过 FileName 属性获取用户选择的文件名。

除了上述示例中的基本用法外，OpenDialog 还支持多选文件和选择文件夹等高级功能。您可以查看 Delphi 帮助文档了解更多信息。