請問各位前輩： 這段程式為何會出現can not create file d:\temp.txt 的錯誤訊息 請問是哪裡寫錯   

   if OpenDialog1.Execute then
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  
   if FileCreate('d:\temp.txt')<>-1 then
     Memo1.Lines.SaveToFile('d:\temp.txt');
     CopyFile(pchar('d:\temp.txt'),pchar('d:\temp1.txt'),false);
     Memo1.Clear;
     Memo1.Lines.LoadFromFile('d:\temp1.txt'); 
 

if FileCreate('d:\temp.txt')<>-1 then Memo1.Lines.SaveToFile('d:\temp.txt'); FileCreate 會幫您產生一個 temp.txt 後您又要寫入,所以會出問題, 您應是要用 if not fileexists('d:\temp.txt) then 才對吧!

   if OpenDialog1.Execute then
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
   Memo1.Lines.SaveToFile('d:\temp.txt');
 

直接Save就可以, 若原檔名存在則overwrite