1、数组越界问题
var
k:array[1..3] of integer;
i:integer;
begin
i:=5;
showmessage(inttostr(k[i]);//这个居然不出错
end;2、如果有N个Label要创建,数量不确定。大家用什么办法来创建?
最好有tstringlist这样的,操作比较方便。
var
k:array[1..3] of integer;
i:integer;
begin
i:=5;
showmessage(inttostr(k[i]);//这个居然不出错
end;2、如果有N个Label要创建,数量不确定。大家用什么办法来创建?
最好有tstringlist这样的,操作比较方便。
解决方案 »
- 如何得到一个dll文件的版本,厂商,最后更新日期等信息?
- 在WIN2000下怎样屏蔽掉如"Ctrl+Alt+Del"的系统键?除了HOOK还有没有其它办法?
- 扩展名为pf的文件用什么来打开?
- 问题 有关rave,delphi自带的
- 祝D版的兄弟姐妹们国庆快乐(Borland中国&游民)---散分之二
- 判断字符串是否已在TStrings列里已存在?
- 如何用Delphi实现在SQL数据库中存取二进制数据
- 怎样可以将本地数据集中的数据添加到远程数据集??
- 怎样返回SQL SERVER中储存过程的计算结果
- 有谁能优化这段代码?试试
- 哈哈,我也来发一段我写的tcpsocket的源代码吧---临时之作,大家指正!
- 问一个IDHTTP控件的问题
tstringlist 都行吧就用里面的成员函数操作 不行吗
的结果是什么? 0?
k:array[1..3] of integer;
i:integer;
begin
i:=5;
k[i]:=255;
showmessage(inttostr(k[i]);//这个居然不出错
end;结果就是255
TList.add 增加
TList.delete 删除
动态增加删除 实现你需要的功能 帮助里的例子
Label 就是一个item
2.array of TLabel;
var i,s:integer;showmessage(inttoStr(i));
showmessage(inttoStr(s));这类情况。
不过Delphi提供了一个编译选项,可检查这种越界的情况,设置之后,像楼主这样的调用就会报错,设置方法为 Option->Compiling->Range Checking