uses
Classes, ComCtrls, ADODB, SysUtils;type
TNodeData = record
Index: integer;
Caption: string;
end;
PNodeData = ^TNodeData;
TTreeFill = class(TThread)
TV: TTreeView;
TableName: string;
FieldIndex: string;
FieldPID: string;
FieldCaption: string;
RootText: string;
Conn: TADOConnection;
Ptr: PNodeData;
constructor Create(ATreeView: TTreeView; AConn: TADOConnection;
ATable: string; ARootText: string = '我的目录';
AFieldIndex: string = 'ID'; AFieldPID: string = 'PID';
AFieldCaption: string = 'Caption');
Classes, ComCtrls, ADODB, SysUtils;type
TNodeData = record
Index: integer;
Caption: string;
end;
PNodeData = ^TNodeData;
TTreeFill = class(TThread)
TV: TTreeView;
TableName: string;
FieldIndex: string;
FieldPID: string;
FieldCaption: string;
RootText: string;
Conn: TADOConnection;
Ptr: PNodeData;
constructor Create(ATreeView: TTreeView; AConn: TADOConnection;
ATable: string; ARootText: string = '我的目录';
AFieldIndex: string = 'ID'; AFieldPID: string = 'PID';
AFieldCaption: string = 'Caption');
解决方案 »
- DbGridEh单元格多选后如何获取选中了哪些行,并且取得关键字的值
- 有关Tchart控件的问题
- 向大家请教个关于fastreport的问题
- 小弟有一个问题,现在有一个PageControl控件,有多个页面,现在我右击某一页,选种该页,请问如何做呢?在线等待.
- 在dbgrid里如何加入一列
- 请教一个关于访问.net WebService的问题
- 一个初中生的问题!!!!?????????
- delphi6.0实用开发指南(第二版)张增强 谷会东编著 有谁在用?
- COM+组件中的Private变量不能在它的作用域内保存值?!
- 怎样从TDataSet继承一个可以自定义的类
- 请高手帮帮忙
- delphi+oracle删除记录问题
procedure AddTree(Node: TTreeNode; PN: PNodeData);
protected
procedure Execute; override;
end;implementation
//------------------------------------------------------------------------------
constructor TTreeFill.Create(ATreeView: TTreeView; AConn: TADOConnection;
ATable: string; ARootText: string = '我的目录';
AFieldIndex: string = 'ID'; AFieldPID: string = 'PID';
AFieldCaption: string = 'Caption');
再加上如下代码,
implementation
constructor ...
又是创建的谁的啊?