Memoが初期化されない問題を修正

diff --git a/Editor.pas b/Editor.pas
index 38047de..185f902 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1632,6 +1632,7 @@ procedure TEditorForm.ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
 var
        body: TStringList;
 begin
+        AMemo.Clear;
        AMemo.Lines.Add('[head.txt]');
        if ABoard.IsHEADTXT then begin
                if FileExists(ABoard.GETHEADTXTFileName)  then begin