【DO!BOOK・ページリンク】
2008_migaro_techreport_001   122 / 136

BOOKをみる

10秒後にBOOKのページに移動します


120 // ファイルより追加 with Datamodule1.CdsMenu do begin First; while not eof do begin // データをセット New(TVRecPtr); // プログラムファイルの設定    MenuCD := FieldByName('CODE').AsString; Title := FieldByName('TITLE').AsString; TVRecPtr^.EXENM := PathName + FieldByName('EXE').AsString + '.EXE'; // トップノード if Copy(MenuCD,1,2) <> BrkCd1 then begin TopNode := TreeView1.Items.AddChildObject(nil,Title,TVRecPtr); end else begin if Copy(MenuCD,3,2) <> BrkCd2 then // 子ノード begin // ノード追加 ChdNode1 := TreeView1.Items.AddChildObject(TopNode,Title,TVRecPtr); end else // 孫ノード begin // 中分類'00' のとき、親ノードがトップノード if Copy(MenuCD,3,2) = '00' then ChdNode1 := TopNode; ChdNode2 := TreeView1.Items.AddChildObject(ChdNode1,Title,TVRecPtr); end; end; // 大中分類退避 BrkCd1 := Copy(MenuCD,1,2); BrkCd2 := Copy(MenuCD,3,2); // 次データへ Next; end; First; end; // 全ノードを展開 TreeView1.FullExpand; end;