Delphi 试图查找文件位置时，我遇到此错误（需要错误记录、对象或类类型）

我试图用此代码获取编辑组件上的文件位置（D:\Documents\Work）

procedure TForm3.btn1Click(Sender: TObject);
begin
  if dlgOpen1.Execute then
    if FileExists(dlgOpen1.FileName) then
      edt5.Text.ExtractFileDir(dlgOpen1.FileName)
    else
      raise Exception.Create('File does not exist.');
end;

---

edt5.Text.ExtractFileDir（dlgOpen1.FileName）

无效

edt5

似乎是

TEdit

，而

TEdit

控件没有

Text.ExtractFileDir

方法

你的代码应该是

edt5.Text := ExtractFileDir(dlgOpen1.FileName);

---

edt5.Text.ExtractFileDir（dlgOpen1.FileName）

无效

edt5

似乎是

TEdit

，而

TEdit

控件没有

Text.ExtractFileDir

方法

你的代码应该是

edt5.Text := ExtractFileDir(dlgOpen1.FileName);

---

如果改为启用对话框的路径必须存在的

和
ofFileMustExist
标志，则不需要使用
FileExists（）
。然后，除非用户选择一个确实存在的文件，否则该对话框甚至不会关闭。如果您改为启用对话框的
of pathMustExist
和
ofilemustExist
标志，则不需要使用
FileExists（）
。然后，除非用户选择一个确实存在的文件，否则该对话框甚至不会关闭。ExtractFileDir和ExtractFilePath返回本质上相同的内容。不同之处在于ExtractFileDir返回的值不包含尾随文件分隔符。ExtractFileDir和ExtractFilePath返回本质上相同的内容。不同之处在于ExtractFileDir返回的值不包含尾随文件分隔符。