上帝，我只是想写个树，难道不行吗

2005-09-16 03:36:21 266 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何设计QR反激变换器摘要：本文分析了基于GaN技术的PD适配器市场现状，重点探讨了准谐振反激变换器（QR Flyback）的工作原理及设计方法。文章首先介绍了反激变换器的三种工作模式（CCM、DCM、CRM/QR）及其特点，指出QR模式通过谷底开通技术能显著降低开关损耗。随后以65W适配器为例，详细阐述了变压器参数设计流程，包括匝比确定、原边电感计算和绕组匝数设计等关键步骤。文章强调QR反激变换器凭借高效率、小体积和低成本优势，已成为20W-65W PD适配器的主流拓扑方案，配合GaN技术进一步提升了功率密度和便携性。阅读详情

我就是想写个树，A是父，B、C是A的叶子，E、F是B的叶子，先写A，然后是叶子B、C，这个时候节点在C上，如何跳到B上再写它的下级E、F，请大家支持

...全文

【win10+RAGFlow+Ollama】搭建本地大模型助手（教程+源码）在当今科技飞速发展的时代，人工智能（AI）已经成为各行各业不可或缺的一部分。特别是在文档处理和数据分析领域，AI的应用更是无处不在。今天，我要向大家介绍一个开源的AI框架引擎——RAGflow。它能够在深度文档理解方面执行检索增强生成（Retrieval-Augmented Generation，简称RAG），并且被认为是目前最优秀的RAG框架之一。本文将详细探讨RAGflow的创新功能、技术特点以及如何在实际应用中发挥其最大潜力。阅读详情

jerehsofter

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

S.F. 2005-09-18

打赏
举报

好象跑题了。

myy 2005-09-16

打赏
举报

http://blog.csdn.net/myy/

jinjazz 2005-09-16

打赏
举报

怎样根据数据库的内容动态部门树 *****
主要解答者: zswangII 提交人: dulei115
感谢: dulei115
审核者: l_xiaofeng 社区对应贴子: 查看
-----------------------------------
数据库结构：
部门ID 部门名称上级部门ID
1 总部门 -1
2 部门1 1
3 部门2 1
4 部门3 1
5 分部门1 2
6 分部门2 2
7 分部门3 2
8 子部门1 5
9 子部门1 5
---------------------------------------------------------------
(*//
标题:数据集处理成可视树
说明:处理父节点标识字段、节点文本字段、节点标识字段这种表结构
设计:Zswang
日期:2002-05-20
支持:wjhu111@21cn.com
//*)
///////Begin Source
function DataSetToTreeNode(mDataSet: TDataSet;
mFieldNameParent: string; //父节点标识字段名
mFieldNameTreeText: string; //节点文本字段名
mFieldNameTreeId: string; //节点标识字段名
mTreeView: TTreeView; mTreeNode: TTreeNode;
mParentText: string): Boolean;
var
vTreeNode: TTreeNode;
vFieldValues: Variant;
vFieldNames: string;
begin
Result := False;
if not Assigned(mDataSet) then Exit;
if not Assigned(mTreeView) then Exit;
if not mDataSet.Active then Exit;
vFieldNames := Format('%s;%s;%s',
[mFieldNameParent, mFieldNameTreeText, mFieldNameTreeId]);
mDataSet.Filtered := False;
mDataSet.Filter := Format('%s=%s', [mFieldNameParent, QuotedStr(mParentText)]);
mDataSet.Filtered := True;
if mDataSet.RecordCount = 0 then Exit;
mDataSet.First;
while not mDataSet.Eof do begin
vTreeNode := mTreeView.Items.AddChild(mTreeNode,
mDataSet.FieldByName(mFieldNameTreeText).AsString);
vFieldValues := mDataSet[vFieldNames];
DataSetToTreeNode(mDataSet, mFieldNameParent, mFieldNameTreeText,
mFieldNameTreeId, mTreeView, vTreeNode,
mDataSet.FieldByName(mFieldNameTreeId).AsString);
///////Begin 恢复位置
mDataSet.Filtered := False;
mDataSet.Filter := Format('%s=%s', [mFieldNameParent, QuotedStr(mParentText)]);
mDataSet.Filtered := True;
mDataSet.Locate(vFieldNames, vFieldValues, []);
///////End 恢复位置
mDataSet.Next;
end;
Result := True;
end;
///////End Source
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Clear;
DataSetToTreeNode(Table1, 'ParentTreeId', 'TreeText', 'TreeId',
TreeView1, nil, 'NULL');
end;
///////End Source
//---------------------------------------------------------------------------
//Borland C++ Builder
//---------------------------------------------------------------------------
///////Begin Source
bool DataSetToTreeNode(TDataSet* mDataSet,
AnsiString mFieldNameParent, //父节点标识字段名
AnsiString mFieldNameTreeText, //节点文本字段名
AnsiString mFieldNameTreeId, //节点标识字段名
TTreeView* mTreeView, TTreeNode* mTreeNode,
AnsiString mParentText)
{
TTreeNode* vTreeNode;
Variant vFieldValues;
AnsiString vFieldNames;
if (mDataSet == NULL) return false;
if (mTreeView == NULL) return false;
if (!mDataSet->Active) return false;
vFieldNames = Format("%s;%s;%s",
ARRAYOFCONST((mFieldNameParent, mFieldNameTreeText, mFieldNameTreeId)));
mDataSet->Filtered = false;
mDataSet->Filter = Format("%s=%s", ARRAYOFCONST((mFieldNameParent, QuotedStr(mParentText))));
mDataSet->Filtered = true;
if (mDataSet->IsEmpty()) return false;
mDataSet->First();
while (!mDataSet->Eof) {
vTreeNode = mTreeView->Items->AddChild(mTreeNode,
mDataSet->FieldByName(mFieldNameTreeText)->AsString);
vFieldValues = mDataSet->FieldValues[vFieldNames];
DataSetToTreeNode(mDataSet, mFieldNameParent, mFieldNameTreeText,
mFieldNameTreeId, mTreeView, vTreeNode,
mDataSet->FieldByName(mFieldNameTreeId)->AsString);
///////Begin 恢复位置
mDataSet->Filtered = false;
mDataSet->Filter = Format("%s=%s", ARRAYOFCONST((mFieldNameParent, QuotedStr(mParentText))));
mDataSet->Filtered = true;
mDataSet->Locate(vFieldNames, vFieldValues, TLocateOptions());
///////End 恢复位置
mDataSet->Next();
};
return true;
} /* DataSetToTreeNode */
///////End Source
///////Begin Demo
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TreeView1->Items->Clear();
DataSetToTreeNode(Table1, "UpperTreeId", "TreeName", "TreeId",
TreeView1, NULL, "NULL");
}
///////End Demo

//当前如下调用～～

begin
TreeView1.Items.Clear;
DataSetToTreeNode(ADOTable1, '上级部门ID', '部门名称', '部门ID',
TreeView1, nil, '-1');
ADOTable1.Filter := '';
end;

hunterht 2005-09-16

打赏
举报

神啊，救救这孩子吧

chenylin 2005-09-16

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
RootNode,tmpNode:TTreeNode;
i:integer;
begin
RootNode:=TreeView1.Items.Add(Nil,'测试树');
ADODataSet1.First;
While not ADODataSet1.Eof do
begin
for i:=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text=ADODataSet1.FieldByName('father').AsString then
begin
tmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],ADODataSet1.FieldByName('son').AsString);
break;
end;
ADODataSet1.Next;
end;
end;

jerehsofter 2005-09-16

打赏
举报

如果从数据库中动态的读，那么应该如何写代码呢

结构是：
FATHER SON
A B
A C
B E
B F
C D
D H
D I

chenylin 2005-09-16

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
RootNode,TmpNode:TTreeNode;
i:integer;
begin
TreeView1.Items.Clear;
RootNode:=TreeView1.Items.Add(Nil,'A');
TmpNode:=TreeView1.Items.AddChild(RootNode,'B');
TmpNode:=TreeView1.Items.AddChild(RootNode,'C');
For i:=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text='B' then
begin
TmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],'E');
TmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],'F');
Break;
end;
end;

jerehsofter 2005-09-16

打赏
举报

我知道原理，就是代码具体的函数不知道如何写，对TREEVIEW的控制不熟悉，哪位高手可以给我个代码。

一根老玉米 2005-09-16

打赏
举报

树的遍历

数据结构多看看

hellolongbin 2005-09-16

打赏
举报

呵呵，基础知识

cxj1976 2005-09-16

打赏
举报

l_Node:= Treeview.topnode;
while l_Node<>nil do
begin
if l_Node=b then
begin
l_Nod.add.......
end;
end;

jasengod2003 2005-09-16

打赏
举报

帮楼主顶上去！

fei19790920 2005-09-16

打赏
举报

孩子，行的，只是你的技术不过关!

hanlin2004 2005-09-16

打赏
举报

算法问题，树的遍历

上帝，我只是想写个树，难道不行吗

相关推荐