delphi - 如何在Delphi中选择文件

Question

我需要制作“图形用户界面”，并且需要一些VCL组件来选择一些文件。

该组件必须选择文件，但用户不必输入文件名。

我正在搜索信息，但没有任何帮助。

Answer 1

Vcl.Dialogs.TOpenDialog可以用于此目的。

另请参见UsingDialogs。

procedure TForm1.Button1Click(Sender: TObject);
var
  selectedFile: string;
  dlg: TOpenDialog;
begin
  selectedFile := '';
  dlg := TOpenDialog.Create(nil);
  try
    dlg.InitialDir := 'C:\';
    dlg.Filter := 'All files (*.*)|*.*';
    if dlg.Execute(Handle) then
      selectedFile := dlg.FileName;
  finally
    dlg.Free;
  end;

  if selectedFile <> '' then
    <your code here to handle the selected file>
end;

请注意，此处的示例假定将名为 TButton的 Button1拖放到窗体中，并且将 TForm1.Button1Click(Sender: TObject)过程分配给按钮 OnClick事件。



通过使用 TOpenDialog.Filter（竖线）字符将多个文件扩展名连接在一起，可以在 |属性中使用多个文件扩展名，如下所示：

'AutoCAD drawing|*.dwg|Drawing Exchange Format|*.dxf'