請問如何將Tmenu的資料轉出

發文回覆瀏覽次數：838

推到 Plurk!

推到 Facebook!

答題得分者是：Fishman

shing.net
中階會員

發表：207
回覆：124
積分：66
註冊：2002-03-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-06-18 10:39:07

IP:211.74.xxx.xxx 未訂閱

請問如何將Tmenu的資料轉出，且依照Tree的架構謝謝

Fishman
尊榮會員

發表：120
回覆：1949
積分：2163
註冊：2006-10-28

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-06-18 10:54:41

IP:210.65.xxx.xxx 未訂閱

Hi shing.net, 將 MENU 轉為 TREE !?

procedure TForm1.Button8Click(Sender: TObject);
var
    I : Integer;
    MyTreeNode: TTreeNode;
   procedure RomeMainMenu(MenuItem : TMenuItem; TreeNode : TTreeNode);
   var
       I : Integer;
       MyTreeNode: TTreeNode;
   begin
       FOR I := 0 TO MenuItem.Count - 1 DO
           BEGIN
               MyTreeNode := TreeView1.Items.AddChild(TreeNode,MenuItem.Items[I].Caption);
               RomeMainMenu(MenuItem.Items[I],MyTreeNode);
           END;
   end;    begin
    TreeView1.Items.Clear;
    FOR I := 0 TO MainMenu1.Items.Count - 1 DO
        BEGIN
            MyTreeNode := TreeView1.Items.AddChild(NIL,MainMenu1.Items.Items[I].Caption);
            RomeMainMenu(MainMenu1.Items.Items[I],MyTreeNode);
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

shing.net
中階會員

發表：207
回覆：124
積分：66
註冊：2002-03-16

發送簡訊給我

#3 引用回覆回覆

發表時間：2004-06-18 12:12:02

IP:211.74.xxx.xxx 未訂閱

謝謝，我是是轉至TDBTREE且轉至資料庫，之後在由資料庫轉至Tmenu 我想原理是一樣，我試寫看看

引言: Hi shing.net, 將 MENU 轉為 TREE !?

procedure TForm1.Button8Click(Sender: TObject);
var
    I : Integer;
    MyTreeNode: TTreeNode;
   procedure RomeMainMenu(MenuItem : TMenuItem; TreeNode : TTreeNode);
   var
       I : Integer;
       MyTreeNode: TTreeNode;
   begin
       FOR I := 0 TO MenuItem.Count - 1 DO
           BEGIN
               MyTreeNode := TreeView1.Items.AddChild(TreeNode,MenuItem.Items[I].Caption);
               RomeMainMenu(MenuItem.Items[I],MyTreeNode);
           END;
   end;    begin
    TreeView1.Items.Clear;
    FOR I := 0 TO MainMenu1.Items.Count - 1 DO
        BEGIN
            MyTreeNode := TreeView1.Items.AddChild(NIL,MainMenu1.Items.Items[I].Caption);
            RomeMainMenu(MainMenu1.Items.Items[I],MyTreeNode);
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica">

系統時間：2024-07-04 15:31:53

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！