[求助]文件处理，up有分

[sanoul]

MyFileName := MyDialog.SelectedPath+'\'+'xxxx.xxx';
If not FileExists(MyFileName) then FileCreate(MyFileName);
AssignFile(MyFile ,MyFileName);
Rewrite(MyFile); //或者 Reset(MyFile);

上诉代码每次执行到Rewrite或者Reset总是报I/O Error 32错误，百思不得其解，忘哪位大虾告知一、二


——————————————————————————
up有分，谢谢！

[pengxuan]

MyFileName := MyDialog.SelectedPath+'\'+'xxxx.xxx';
AssignFile(MyFile ,MyFileName);
Rewrite(MyFile); //或者 Reset(MyFile);
这样试试

[sanoul]

关键是 xxxx.xxx是需要创建的，不是存在的，所以需要先创建文件再打开

[longchaohui]

报错的原因是你的文件是正在打开的，
如果没有执行FileCreate的话应该是不会报错的。
你创建后如果要用你的那种方式写文件的话，
要先关闭文件，在你写完文件后也应该关闭。
例如：

procedure TForm1.Button2Click(Sender: TObject);
var MyFileName:string;
MyFile:TextFile;
hfile:integer;
begin
MyFileName := 'd:\xxxx.xxx';
If not FileExists(MyFileName) then
begin
hfile:=FileCreate(MyFileName);
FileClose(hfile);
end;
AssignFile(MyFile ,MyFileName);
Rewrite(MyFile); //或者 Reset(MyFile);
CloseFile(MyFile);
end;

[shirleyttt]

rewrite的用法是：文件不存在时创建文件，文件存在则打开文件，覆盖文件

[sanoul]

哈哈，搞定，谢谢两位

[shirleyttt]

还有一个问题，如果刚好此目录下有一个同名的文件夹‘xxxx.xxx'’，也会出错

[xinqingbucuo]

AssignFile(PWFile,SelectedPath);
Rewrite(PWFile);//过程创建并打开文件，对于一个已存在的软件，此操作将使文件备覆盖