大家帮忙看看这段代码，运行是老是报错啊！！！

Question

items 怎么能用 getfirstnode;
要items[0]就是更节点
如果不要更节点，要用items[n].getfirstnode;

Answer 1

改成CurNode:=MainForm.fcTreeView1.items[0]，也一样不行啊

Answer 2

CurNode:=MainForm.fcTreeView1.items[0]，

Answer 3

curnode:=mainForm.fctreeview1.items[0].getfirstnode;

Answer 4

//调试看看什么地方是空！//....
  CurNode:TfcTreeNode;
begin
  if Assgiend(MainForm) then begin
    ShowMessage('MainForm is Null');
    Exit;
  end;
  if Assgiend(MainForm.fcTreeView1) then begin
    ShowMessage('MainForm.fcTreeView1 is Null');
    Exit;
  end;
  if Assgiend(MainForm.fcTreeView1.Items) then begin
    ShowMessage('MainForm.fcTreeView1.Items is Null');
    Exit;
  end;
  CurNode:=MainForm.fcTreeView1.Items.GetFirstNode;//这儿出错。
//....

Answer 5

//忘记加“not”了//调试看看什么地方是空！//....
  CurNode:TfcTreeNode;
begin
  if not Assgiend(MainForm) then begin
    ShowMessage('MainForm is Null');
    Exit;
  end;
  if not Assgiend(MainForm.fcTreeView1) then begin
    ShowMessage('MainForm.fcTreeView1 is Null');
    Exit;
  end;
  if not Assgiend(MainForm.fcTreeView1.Items) then begin
    ShowMessage('MainForm.fcTreeView1.Items is Null');
    Exit;
  end;
  CurNode:=MainForm.fcTreeView1.Items.GetFirstNode;//这儿出错。
//....

Answer 6

都不是空
加了初始化操作也不行
只要对CurNode操作就不行。
procedure TAddPadItemForm.BtnOKClick(Sender: TObject);
var
  CurNode:TfcTreeNode;
begin
  CurNode:=TfcTreeNode.Create(MainForm.PadfcTreeView.Items);
  CurNode:=MainForm.PadfcTreeView.Items.GetFirstNode;
  if CurNode<>nil then
    if ClockChb.Checked then
      begin
        MainForm.PadfcTreeView.Items.AddChild(CurNode,TitleEdt.Text);
      end
    else
      begin
        MainForm.PadfcTreeView.Items.AddChild(CurNode,TitleEdt.Text);
      end;  Close;
end;

Answer 7

procedure TAddPadItemForm.BtnOKClick(Sender: TObject);
var
  CurNode:TfcTreeNode;
begin
  CurNode:=TfcTreeNode.Create(self);
  if(MainForm.PadfcTreeView.Items.GetFirstNode<>NIL)
  CurNode:=MainForm.PadfcTreeView.Items.GetFirstNode;
  if CurNode<>nil then
    if ClockChb.Checked then
      begin
        MainForm.PadfcTreeView.Items.AddChild(CurNode,TitleEdt.Text);
      end
    else
      begin
        MainForm.PadfcTreeView.Items.AddChild(CurNode,TitleEdt.Text);
      end;  Close;
end

Answer 8

对对，MainForm确实是Nil，那怎么保证MainForm不为空？当前窗口是模态窗口。

Answer 9

mainform为空？
什么意思？

Answer 10

没办法啊，急着赶进度啊。
MainForm为空，那我该怎么办呢？

Answer 11

我也不太知道，就是Not Assigned(MainForm)为True;

Answer 12

procedure TAddPadItemForm.BtnOKClick(Sender: TObject);
var
  CurNode:TfcTreeNode;
begin
  if MainForm.FcTreeView1.Active then
    CurNode:=MainForm.fcTreeView1.Items.GetFirstNode;//这儿出错。
  if CurNode<>nil then
    if ClockChb.Checked then
      begin
          MainForm.fcTreeView1.Items.AddChild(CurNode,TitleEdt.Text);
      end
    else
      begin
        MainForm.fcTreeView1.Items.AddChild(CurNode,TitleEdt.Text);
      end;  Close;
end;