file - 该系统找不到指定的文件

Question

该文件位于软件所在的目录中。我正在尝试将文本文件添加到备注框。

procedure TForm4.FormCreate(Sender: TObject);
var
  dir : string;
begin
  Form4.Caption:='Abateri instrumente';
  dir := GetCurrentDir;
  Memo1.Lines.LoadFromFile(dir+'\abateri.txt');
end;

Answer 1

在你的具体情况下，你应该用代码加载文件

Memo1.Lines.LoadFromFile(dir+'\abateri.txt.txt');

这是因为在您提供的下面的屏幕截图中，Project3 文件的扩展名被隐藏，这表明隐藏已知文件扩展名的选项已启用。然而显示的是 abateri.txt 文件，这只会导致常见的双重扩展错误。

要么重命名文件并删除冗余部分(首选第一个 .txt)，要么在代码中使用双扩展名。
我还建议在 Windows 资源管理器中禁用该选项:
工具> 文件夹选项> 查看> 取消选中“隐藏已知文件类型的扩展名”

除上述之外，您应该始终使用 TPath.Combine 函数调用构建路径，以确保它们是正确的。您可以查看它的文档 here