Question

Delphi 文件操作时“File not found”

procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
Str,p:String;
begin
Str:='';
AssignFile(f,'C:\1.txt');
Reset(f);
while not EOF(f) do
begin
Readln(f,p);
Str:=Str+p;
end;
CloseFile(f);
ShowMessage(Str);
end;

‘1.txt’就在C盘，移到其他盘改了代码还是提示“File not found”。按理说应该不会出现这样的问题的。这是怎么回事？

Answer 1

只要语句AssignFile(f,'C:\1.txt'); 中的路径存在,
你这代码是没有问题的:)

是不是你隐藏了后缀名造成的.比如你实际的文件名是:1.txt.txt

Answer 2

代码在我这里没有错误,
我是在D盘测试的.

lz碰到的现象好奇怪啊
再确认下文件名字啦.再确认下扩展名,在dos下看看那个文件到底是什么名字...