易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi这么灵异的？

Delphi(Pascal) code:

var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
Str[Length(Str)]:='xxxx';
end;
ShowMessage(str[0]);
ShowMessage(str[1]);
ShowMessage(str[2]);
ShowMessage(str[3]);
end;



几个奇怪的地方，调试发现，i的值在第一次循环居然是5，第2次是4，第3次是3.。。。 不是应该从0-4的吗？？？

还有，为什么j:=Length(Str);为什么一直告诉我是随机数？调试发现str里面的元素个数确实是在递增呀！得到数组的长度怎么搞？Length也不行，SizeOf也不行？

搞了几天，发现Delphi太不适合我用了，怎么都这么奇怪的，和观念很冲突
LZ 在愚弄大众？
那是编译器优化的结果……
引用
  得到数组的长度怎么搞？Length也不行，SizeOf也不行？


high(Str)得到数组上标
low(Str)得到数组下标

就可以得到数组元素的数量了，不知道你说的数组的长度是不是这个？？
我不管用用啥都不行

把灵异的图发上来




最下方居然有个  never used??????Fuck
当编译器“认为”递减和递增效果一样时，因为递减到0执行速度更快，所以你就觉得“灵异”了
j说是被优化了？？？那我怎么得到数组元素的个数啊？？？
把Compiler里面的Optimaztion关掉，就可以去掉优化选项�


相关问答：

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi如何向Access数据表中自定义字段

delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀

分分忒少咧，一般人都懒得进来……*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi中关于Edit的问题

在下面的代码中可以实现Edit1.Text中输入6个字母或数字时Edit2.SetFocus,那么我想让Edit2.text中输入6个字母时实现Edit3获得焦点，有没有简单一点的方法，谢谢大家了！！！

procedure TForm2.Edit1Change(Sen ......

delphi WITH DO的问题

procedure TForm2.Button1Click(Sender: TObject);
var
  i:integer;
begin
SetLength(a,200);
for I := 0 to 199 do
begin
A[i]:=Tedit.Create(self);
  with A[i] do
&n ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号