Question

我想知道如何使用FireMonkey实现Delphi XE6中Delphi 6中使用的以下代码。

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 HD桌面应用程序在表单上显示空的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;

TTreeView代码转换

2 个答案: