T
travelty
Unregistered / Unconfirmed
GUEST, unregistred user!
var F: TextFile;<br>begin //写文件<br> …………<br> AssignFile(F, ResultFile);<br> if not FileExists(ResultFile) then<br> Rewrite(F)<br> else<br> Append(F);<br> writeln(F, FileName);<br> CloseFile(F);<br> …………<br>end<br><br>begin //读文件<br>AssignFile(F, _Name);<br> FileMode := 0;<br> Reset(F);<br> while not Eof(F) do<br> Readln(F, s);<br>end<br><br>这两段程序操作的都是同一个文件,有可能正在读时,又开始写,或者正在写时又开始读,他们之间会不会发生冲突,假如发生了冲突要怎么解决?其中reset好像是以独占方式打开文件,他的filemode:=2,我改成了0(共享方式),但就不知使用append打开文件时他会不会关闭该文件的所有指针?假如要关闭,有没有方法使append可以写,而其他地方同时可以读的方式来打开?<br>