难道是内存不足？

2001-06-30 11:36:42 113 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

中国超算行业投资模式分析及发展规划建议报告2022-2028年版第1章：中国超级计算行业发展综述1.1 行业定义及统计说明 1.1.1 行业概念及定义（1）超级计算概念及定义（2）超级计算机概念及定义 1.1.2 行业相关概念区分比较（1）超级计算与高性能计算（2）超级计算机与通用服务器 1.1.3 行业评价体系 1.1.4 行业发展战略意义（1）推动国家科技创新能力的跨越式发展（2）以超算平台为支撑的先进计算技术推动各学科交叉融合和发展（3）推动完善战略性国家基础信息基础设施的建设（4）广泛服务于国家公共民生行业，提... 阅读详情

//Delphi5.0 + Sql Server 7.0
//同样的代码如果单独运行则也正常，但如果放在大的程序中则出现如下问题

Var
Session:Array of TSession;
DataBase:Array of TDataBase;
Query:Array of TQuery;
begin
//如果只创建以下的任意两个对象，并进行相应处理，系统正常。
//如果三个对象都创建，则当退出主程序知，系统提示内存地址异常
SetLength(Session,TotalComNum);
SetLength(DataBase,TotalComNum);
SetLength(Query,TotalComNum);
//分别对Session,DataBase,Query进行初始化
for I := 1 to TotalComNum do
begin
//动态创建数据对象
Session[I - 1] := TSession.Create(Application);
Session[I - 1].Name := 'Session' + IntToStr(I);
Session[I - 1].SessionName := 'Ses1' + IntToStr(I);
Session[I - 1].Active := True;

DataBase[I - 1] := TDataBase.Create(Application);
DataBase[I - 1].Name := 'DataBase' + IntToStr(I);
DataBase[I - 1].AliasName := 'gsmphone';
DataBase[I - 1].DatabaseName := 'DB' + IntToStr(I);
DataBase[I - 1].LoginPrompt := False;
DataBase[I - 1].Params.Add('USER NAME=sa');
DataBase[I - 1].SessionName := Session[I - 1].SessionName;
DataBase[I - 1].Connected := True;

Query[I - 1] := TQuery.Create(Application);
Query[I - 1].Name := 'Query' + IntToStr(I);
Query[I - 1].SessionName := Session[I - 1].SessionName;
Query[I - 1].DatabaseName := DataBase[I - 1].DatabaseName;

end;
//其他操作
//.......
//释放对象
Session[I - 1].Destroy;
DataBase[I - 1].Destroy;
Query[I - 1].Destroy;
end;

...全文