{***********************************************
** 最小要素での組み合わせ
**
**
************************************************}
procedure TForm1.Button23Click(Sender: TObject);
var
now_node : TTreeNode;
begin
TreeView1.Items.Clear;
//最上位の親を作る。
now_node := TreeView1.Items.Add(nil,'開始');
//マス目配列データーを退避する。
masume_backupNode(now_Node);
//子ノードの作成
makeChildNode2(now_node);
//次のノードへ
now_node := now_Node.GetNext;
//組み合わせシュミレーションの実行
combi_sim_exec2(now_node);
end;
|
シュミレーションの準備
← 最上位のノード作成
← ノードオブジェクトに現在のマス目データー
を保存する。
← 最親ノードの下に子ノードを作成
← 次のノードへ進める。
直下の子ノードに移る。
← ここからシュミレーション開始する。
|
