求助!! treeview

2006-11-02 05:37:23 307 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

大模型千卡训练为何选择自建数据中心？内蒙古IDC实战解析大模型训练已从软件工程演变为重工业级基础设施挑战，其核心在于确定性、低延迟与长期总拥有成本（TCO）的系统性平衡。当训练任务超过256卡、单次运行超24小时或需定制RDMA参数时，公有云的弹性优势迅速让位于调度不确定性与隐性开销。自建数据中心通过硬件定制化、绿电直供、超低延迟网络（如北京—乌兰察布12ms专线）和物理级数据合规控制，显著提升GPU利用率与训练稳定性。本文聚焦千卡级AI基建决策逻辑，深入拆解电力保障、InfiniBand拓扑优化、液冷可靠性等关键技术卡点，为算法负责人与AI Infra工程师提阅读详情

我现在要从数据库中生成树,部分代码如下
type
PTreeNodePnt = ^TTreeNodePnt;
TTreeNodePnt = record
T_Id: string;
T_Value: string;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
PTree: PTreeNodePnt;
TemQ: TADOQuery;
TempNode:　TreeNode;
begin
with TreeQ do
begin
Close;
SQL.Clear;
SQL.Add('select * from T_SYS_PARAMETER');
Open;
while not eof do
begin
New(PTree);
PTree^.T_Id := FieldByName('CONTENT_ID').asstring;
PTree^.T_Value := FieldByName('CONTENT').AsString;
if TreeQ.FieldByName('ROOT_ID').AsInteger = id1 then
begin
TempNode:= TreeView1.Items.AddChildObject(Treeview1.Items[0],Ptree^.T_Value,PTree);
GetNxtNode(FieldByName('CONTENT_ID').AsInteger,TempNode);
end;
Next;
end;
end;

procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
id: string;
begin
if Treeview1.Selected.Level = 1 then
id := TTreeNodePnt(Treeview1.selected.data^).T_id; //正确;
if Treeview1.Selected.Level = 2 then
id := TTreeNodePnt(Treeview1.selected.data^).T_id; // 在这里就出错了,这是最后一个节点
......
end;

初学D不久,请问为什么在这里会出错, access iolation at address 004c07a6
in module 'project1.exe'

...全文