NGword.txtが見つかなかったときに自動生成するようにした。

diff --git a/AbonUnit.pas b/AbonUnit.pas
index a5f9fe1..1a00c94 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -28,7 +28,7 @@ type
     property Deleterlo: Boolean read FDeleterlo write FDeleterlo  default false;
     property Replaceul: Boolean read FReplaceul write FReplaceul  default false;
     property Reverse: Boolean read FReverse write FReverse  default false;
-    property CreateNGwordFile: Boolean read FCreateNGwordFile write FCreateNGwordFile  default true;
+    property CreateNGwordFile: Boolean read FCreateNGwordFile write FCreateNGwordFile;
     property AbonString : String read FAbonString write FAbonString;
     property  AbonPopupRes : Boolean read FAbonPopupRes write FAbonPopupRes default false;
     procedure Setroot(root :String);
@@ -67,6 +67,7 @@ begin
     // \8f\89\8aú\89»
     FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';
     FRetStrings := TStringList.Create;
+    FCreateNGwordFile := true;
     SetCutoffNum(0);
 end;
 
@@ -129,7 +130,7 @@ begin
 
     except
         if CreateNGwordFile = true then begin
-            bufstl.LoadFromFile(path);
+            bufstl.SaveToFile(path);
         end;
         bufstl.Free;
         Result := false;