瀏覽代碼

* avoid keeping old open file names

pierre 26 年之前
父節點
當前提交
9abed6a5bc
共有 1 個文件被更改,包括 6 次插入1 次删除
  1. 6 1
      ide/text/fpini.pas

+ 6 - 1
ide/text/fpini.pas

@@ -378,6 +378,8 @@ end;
 begin
   New(INIFile, Init(INIPath));
   { Files }
+  { avoid keeping old files } 
+  INIFile^.DeleteSection(secFiles);
   INIFile^.SetEntry(secFiles,ieOpenExts,'"'+OpenExts+'"');
   for I:=1 to High(RecentFiles) do
     begin
@@ -488,7 +490,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.19  1999-04-07 21:55:48  peter
+  Revision 1.20  1999-06-28 12:36:51  pierre
+   * avoid keeping old open file names
+
+  Revision 1.19  1999/04/07 21:55:48  peter
     + object support for browser
     * html help fixes
     * more desktop saving things