该系统找不到指定的文件

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资源管理器:
Tools> Folder Options> View>取消选中"已知文件类型的扩展名隐藏"

除上述内容外,您应始终使用TPath.Combine函数调用构建路径以确保它们正确无误.你可以在这里看到它的文档