我的自定义函数不能进行编译,谁以更好的办法

Question

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    ParentNodeID : String; //父节点
    NodeID : String;       //节点代号
    Caption : String;      //标题文字
    URL : String;          //网址
  end;  TForm1 = class(TForm)
    TreeView1: TTreeView;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
    //自定义函数
    procedure CreateSubNodes(myNode :TTreeNode);
  end;

Answer 1

procedure CreateSubNodes(myNode :TTreeNode);
有相应的实现体没有呢?具体哪里不通过?

Answer 2

小弟刚学DELPHI，对使用自定义函数的方法缺少理解

Answer 3

procedure CreateSubNodes(myNode :TTreeNode);是你自己定义的函数？那么它的实现呢？

Answer 4

上面的声明你已经写了，就是procedure CreateSubNodes(myNode :TTreeNode);具体的实现(写在inplement后面)：procedure TForm1.CreateSubNodes(myNode :TTreeNode);
begin
  ................
  ................
  ................
end;

Answer 5

在implementation区域里将实现代码写出来；
procedure Tform1.CreateSubNodes(myNode :TTreeNode);
begin
   //实现代码；
end;