delphi - 试图找到文件位置，我得到了这个错误（错误记录，需要对象或类类型）

Question

我试图使用此代码在编辑组件上获取文件位置 (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;

标签： delphidelphi-7

Answer 1

edt5.Text.ExtractFileDir(dlgOpen1.FileName)无效。edt5似乎是 a TEdit，并且TEdit控件没有Text.ExtractFileDir方法。

您的代码应阅读

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