怎么关掉文件?

                            
我有一段程序,实现的功能是,先载入文件模板,然后填充文件后存为目标文件,但是我现在按钮空间里面的程序执行一次可以正常执行,第二此运行的时候就会出现EFOpenERror错误,不能打开文件,我该怎么作是操作完后关掉文件还是另外作什么?   
  .....  
  mystring1.LoadFromFile('..\前端对象\objmodel.pas');  
  temp2:='';  
  temp2:=   'Xfield:string;';  
  mystring3.Add('操作的字符串');   //给mystring3赋值  
  mystring2.Text:=   StringReplace(mystring1.Text,temp2,mystring3.Text,[rfReplaceAll]);//替换mystring1中包含mystring3的内容;  
  //修改后的内容保存为另外的文件;  
    if   SaveDialog1.Execute   then  
            begin  
                      //SaveDialog1.FileName:=fname;  
                      s:=ExtractFileName(SaveDialog1.FileName);  
                      if   ExtractFileExt(s)='.pas'   then  
                      s:=copy(s,1,length(s)-4);  
                      mystring2.SaveToFile(SaveDialog1.FileName);  
            end;

查看回复

相关问题