巡回フォームを呼び出したときに、ファイル出力するようにした。

diff --git a/Round.pas b/Round.pas
index ba706f0..6396492 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -177,6 +177,7 @@ begin
                RoundList.Items[i, grtItem].BoolData := False;
        RoundNameComboBox.ItemIndex := 0;
        SetRoundItem('');
+       RoundList.SaveRoundFile;
 end;
 
 procedure TRoundDialog.RoundListViewChange(Sender: TObject;