ローカルルール取得の下地

diff --git a/Editor.pas b/Editor.pas
index d4f5f94..ec6603c 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -594,6 +594,8 @@ var
        Namae: String;
        SettingTxt: String;
         RefeURL: string;
+        RuleURL: String;
+        RuleTxt: String;
 begin
        FAbort := False;
        State := gdsError;
@@ -702,16 +704,29 @@ begin
                        RefeURL := RefURL 
                                + 'SETTING.TXT';
 
+                        //\8e\8e\82µ\82É\83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾\82à
+                        RuleURL := RefURL
+                                + 'head.txt';
+                        //\8eæ\93¾\81`
                        Settingtxt := Indy.Get(RefeURL);
+                        RuleTxt := Indy.Get(RuleURL);
 
-                        //DebugOnly
-                       { if Settingtxt = '' then begin
-                                ShowMessage(Settingtxt);
+                        //SETTING.TXT In DebugOnly
+                        if Settingtxt = '' then begin
+                                ShowMessage('\8eæ\93¾\8e¸\94s');
                                 Exit;
                         end else begin
-                                ShowMessage(Settingtxt);
+                                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + Settingtxt);
                                 Exit;
-                        end;    }
+                        end;
+
+                        //RocalRule In Debug Only
+                        if RuleTxt = '' then begin
+                                ShowMessage('\8eæ\93¾\8e¸\94s');
+                                Exit;
+                        end else begin
+                                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + RuleTxt);
+                        end;
 
                        if ResultType = grtOK then begin
                 WriteSambaTime(FHost, Now());