[求助]delphi中如何定义一个可扩充的结构-软件逆向-看雪-安全社区|安全招聘|kanxue.com

最新回复 (3)
木桩雪币： 296 活跃值： (89) 能力值： ( LV15，RANK：340 ) 在线值：发帖 13 回帖 241 粉丝 5 关注私信	木桩 8 2 楼这样访问本来就不是很安全，所以Delphi编译不通过。 Delphi有动态数组，可以随时SetLength()，比如： type _EX_TEST = record count: WORD; filename: array of Char; // 开始不设定长度 end; TEX_TEST = _EX_TEST; PEX_TEST = ^TEX_TEST; var temp: TEX_TEST; begin temp.count := Length(strTest); SetLength(temp.filename, temp.count+1); // 设置filename数组长度 CopyMemory(@temp.filename[0], PChar(strTest), temp.count); // 写入内容 ... 甚至你什么时候觉得filename长度不够了，直接 SetLength(temp.filename, temp.count+n); 都行。这是Delphi的优势 2009-7-14 20:35 0
bithaha 雪币： 1505 能力值： (RANK：210 ) 在线值：发帖 66 回帖 933 粉丝 4 关注私信	bithaha 5 3 楼 delphi2009 支持泛型容器了也可以使用DGL啊应该符合楼主的要求吧 2009-7-15 01:38 0
网络游侠雪币： 0 活跃值： (954) 能力值： ( LV3，RANK：30 ) 在线值：发帖 19 回帖 971 粉丝 15 关注私信	网络游侠 4 楼老师果然是代码翻译高手！ 2009-7-15 08:19 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (3)
木桩雪币： 296 活跃值： (89) 能力值： ( LV15，RANK：340 ) 在线值：发帖 13 回帖 241 粉丝 5 关注私信	木桩 8 2 楼这样访问本来就不是很安全，所以Delphi编译不通过。 Delphi有动态数组，可以随时SetLength()，比如： type _EX_TEST = record count: WORD; filename: array of Char; // 开始不设定长度 end; TEX_TEST = _EX_TEST; PEX_TEST = ^TEX_TEST; var temp: TEX_TEST; begin temp.count := Length(strTest); SetLength(temp.filename, temp.count+1); // 设置filename数组长度 CopyMemory(@temp.filename[0], PChar(strTest), temp.count); // 写入内容 ... 甚至你什么时候觉得filename长度不够了，直接 SetLength(temp.filename, temp.count+n); 都行。这是Delphi的优势 2009-7-14 20:35 0
bithaha 雪币： 1505 能力值： (RANK：210 ) 在线值：发帖 66 回帖 933 粉丝 4 关注私信	bithaha 5 3 楼 delphi2009 支持泛型容器了也可以使用DGL啊应该符合楼主的要求吧 2009-7-15 01:38 0
网络游侠雪币： 0 活跃值： (954) 能力值： ( LV3，RANK：30 ) 在线值：发帖 19 回帖 971 粉丝 15 关注私信	网络游侠 4 楼老师果然是代码翻译高手！ 2009-7-15 08:19 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复