loadfromfile And then SavetoFile 保存不了文件

Question

loadfromfile  And then SavetoFile 保存不了文件我用 richedit.loadfromfile(某文件地址);
编辑后 直接调用 richedit.savetofile(某文件相同地址)来保存该文件的修改报错说  另一个程序正在处理该文件

Answer 1

再顶一下 请问该问题如何处理 ，如何能覆盖保存当前正在编辑的文件。就像记事本里编辑状态下按ctrl+s一样

Answer 2

估计你在LoadFromFile后, 程序中有其他代码以可写的方式打开了这个文件，比如：
var
  iHandle : Integer;procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile('d:\1.txt');
  iHandle := FileOpen('d:\1.txt', fmOpenWrite);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.Lines.SaveToFile('d:\1.txt');
end;只在这种情况下才会出现楼主所描述的错误。去掉  iHandle := FileOpen('d:\1.txt', fmOpenWrite); 这一行，SaveToFile应该没问题的。