datatree和数据库绑定的最少代码 －20050829完成[4]

************************************************************************************************************)

    for i:=0 to stringlist.Count div 5 -1 do
    begin
      case Column of
        0:CellText:=stringlist[node.index * 5];
        1:CellText:=stringlist[node.index * 5+1];
        2:CellText:=stringlist[node.index * 5+2];
        3:CellText:=stringlist[node.index * 5+3];
        4:CellText:=stringlist[node.index * 5+4];
      end;
    end;

end;

//这个函数居然可以不用也可以连数据库，奇怪？

procedure TMMSLibraryForm.DataTreeInitNode(Sender: TBaseVirtualTree;
  ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
var
  Data: ^Int64;
begin
//  Data := Sender.GetNodeData(Node);
//  Data^ := Node.Index;
end;