TTreeView代碼轉換

Question

我想知道如何在Delphi 6中使用FireMonkey實現以下代碼。

Node1:=Quick_Calc.EquivalenciesTree.Items.Add(nil,Text); 

Node1:=Quick_Calc.EquivalenciesTree.Items.Add(Node1,Text); 

Node1:=Quick_Calc.lEquivalenciesTree.Items.AddChild(Node1,Text); 

Answer 1

簡單的測試表明，該代碼的工作，以嶄新的FMX高清桌面應用程序與窗體上的空TTreeView：

procedure TForm1.FormCreate(Sender: TObject); 
var 
    Root: TTreeViewItem; 
    Item: TTreeViewItem; 
    SubItem: TTreeViewItem; 
    i, j: Integer; 

    function AddChild(Node: TTreeViewItem; NodeText: string): TTreeViewItem; 
    begin 
    Result := TTreeViewItem.Create(Self); 
    Result.Text := NodeText; 
    if Node <> nil then 
     Result.Parent := Node 
    else 
     Result.Parent := TreeView1; 
    end; 

begin 
    Root := TTreeViewItem.Create(Self); 
    Root.Text := 'Root node'; 
    Root.Parent := TreeView1; 
    for i := 1 to 10 do 
    begin 
    Item := AddChild(Root, Format('Item %d', [i])); 
    for j := 1 to 2 do 
     SubItem := AddChild(Item, Format('Child %d of Item %d', [j, i])); 
    end; 
end; 

Answer 2

Procedure Carga_Nodo; 
Begin 
If NivAct=0 Then 
    Begin 
{ 
    Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(nil,CadMem) 
} 
    Nodo[I].Text:=CadMem; 
    Nodo[I].Parent:=Form1.ArbolEquivalencias; 
    NivAnt:=NivAct; 
    IndPad:=I; 
    IndHer:=I; 
    IndHij:=I; 
    End 
Else 
    Begin 
    If NivAnt=NivAct Then 
    Begin 
{ Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(Nodo1,CadMem)} 
    Nodo[I].Text:=CadMem; 
    Nodo[I].Parent:=Nodo[IndPad]; 
    End 
    Else 
    If NivAct>NivAnt Then 
    Begin 
{ Nodo1:=Quick_Calc.ArbolEquivalencias.Items.AddChild(Nodo1,CadMem)} 
    IndPad:=I-1; 
    Nodo[I].Text:=CadMem; 
    Nodo[I].Parent:=Nodo[IndPad]; 
    End 
    Else 
    Begin 
    J:=I; 
    Repeat 
{  NodoPadre:=NodoPadre.GetPrev;} 
     NodoPadre:=GetPrevItem(Nodo[J]); 
     NivAnt:=Nodo[J].Level; 
     J:=J-1; 
    Until NivAnt=NivAct; 
    J:=J+1; 
{  Nodo1:=Quick_Calc.ArbolEquivalencias.Items.Add(Nodo1,CadMem)} 
    IndHer:=J; 
    Nodo[I].Text:=CadMem; 
    Nodo[I].Parent:=Nodo[IndHer]; 
    End; 
    NivAnt:=NivAct; 
    End; 
End;