板情報取得中にレスエディターを終了させると"処理されなかった例外"が出る問題を修正

diff --git a/Editor.pas b/Editor.pas
index f9f7cec..d7f78d6 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1731,6 +1731,10 @@ var
        settingBody: TStringList;
        tmpBoard: TBoard;
 begin
+        if FWork then
+               Exit;
+        FWork := True;
+
        InitIdHTTP(Indy);
        if FThreadItem = nil then
                tmpBoard := FBoard
@@ -1779,6 +1783,8 @@ begin
                Screen.Cursor := crDefault;
        end;
        ShowBoardInformation(tmpBoard, BoardInformationMemo);
+
+        FWork := False;
 end;
 
 procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
@@ -1844,6 +1850,10 @@ var
        memStream: TMemoryStream;
        tmpBoard: TBoard;
 begin
+        if FWork then
+               Exit;
+        FWork := True;
+
        InitIdHTTP(Indy);
        memStream := TMemoryStream.Create;
        try
@@ -1877,6 +1887,7 @@ begin
                memStream.Free;
        end;
 
+        FWork := False;
 end;
 procedure TEditorForm.ShowTitlePicture();
 var
@@ -1917,6 +1928,10 @@ var
        settingBody: TStringList;
        tmpBoard: TBoard;
 begin
+        if FWork then
+               Exit;
+        FWork := True;
+
        InitIdHTTP(Indy);
        if FThreadItem = nil then
                tmpBoard := FBoard
@@ -1975,7 +1990,8 @@ begin
        if tmpBoard.IsHEADTXT then begin
                 ShowBoardHead(tmpboard, LocalEdit);
        end;
-
+         
+        FWork := False;
 end;
 
 procedure TEditorForm.CalcCapacityActionExecute(Sender: TObject);