for i:=0 to GameTotal.Count-1 do
begin
S:=GameTotal[i];
New(_TChannelStatus[i]);
_TChannelStatus[i].JU_GameId:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Name:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_State:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Needsize:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_UpdateDp:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Downspeed:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Vernumber:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_IndexSize:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_GameC:=Copy(S,1,Pos(',',S)-1);
FList.Add(_TChannelStatus[i]);
end;
请问下改怎么释放
begin
S:=GameTotal[i];
New(_TChannelStatus[i]);
_TChannelStatus[i].JU_GameId:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Name:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_State:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Needsize:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_UpdateDp:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Downspeed:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_Vernumber:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_IndexSize:=Copy(S,1,Pos(',',S)-1);
system.Delete(S,1,Pos(',',S));
_TChannelStatus[i].JU_GameC:=Copy(S,1,Pos(',',S)-1);
FList.Add(_TChannelStatus[i]);
end;
请问下改怎么释放
解决方案 »
- 请大家推荐一款7k元以内的本本。
- 我想用edit的内容来更新库里的记录,ISNULL用起来不对吗?
- 请问如何写一个遍厉一张数据表的所有列?
- 紧急求教----请问书店的图书管理系统和防盗系统(磁处理)一套价格是多少?开发周期多长?磁处理使用的是贴磁条,还是其他方法?
- 怎样取随机数?(在线等待)
- 读取窗口中的控件的属性是否也必须使用synchronize?
- 为什么我报表时的PageFooter显示不出来?
- 不能调用Asp对象的方法
- Delphi控件需要的Dll?
- 一个时间字段(格式为HH:MM:SS),但我因为存储方便我设计成字符型了,现在我要计算数据表中这个字段平均时间,用SQL语句怎么写?
- 毛遂自荐寻delphi兼职
- Delphi2009 安装BusinessSkinForm 7.33 报这样的错误
不过你的情况要在FList用完后销毁指针,否则将访问地址出错