表示できるようにしたけど例外出るかも

diff --git a/Giko.pas b/Giko.pas
index 01c1550..a267a3a 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -10605,25 +10605,29 @@ end;
 
 procedure TGikoForm.LocalRuleViewClick(Sender: TObject);
 var
-RefURL,
-RefeURL,
-RuleURL,
-RuleTxt:String;
-FBoard: TBoard;
-Indy: TIdHTTP;
-begin
-        //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(SETTING.TXT Mode) by \92è\8aú\95Ö
+        RefURL,
+        RefeURL,
+        RuleURL,
+        RuleTxt:String;
+        FBoard: TBoard;
+        Indy: TIdHTTP;
+        FileStream: TFileStream;
+begin
+        //\83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾ by \92è\8aú\95Ö
        RefURL := GikoSys.UrlToServer(FBoard.URL)
                + GikoSys.UrlToID(FBoard.URL)
                + '/';
-       //RefURL\82ð\8c³\82ÉSETTING.TXT\83A\83h\83\8c\83X\8ew\92è
-       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`
        RuleTxt := Indy.Get(RuleURL);
+        //FileStream.Create('head.txt', fmCreate) := Indy.Get(RuleURL, FileStream);
+        //\8e\8e\8c±\95\\8e¦\81`
+        if RuleTxt = '' then begin
+                ShowMessage('\83\8d\81[\83J\83\8b\83\8b\81[\83\8b\8eæ\93¾\8e¸\94s');
+        end;
+        ShowMessage(RuleTxt);
 
 end;