突然发现Delphi的for循环最后会把i还计算一遍！
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,n: Integer;
begin
n:=0;
k:=StrToInt(Edit2.Text);
for i:=StrToInt(Edit1.Text) to k do
begin
n:=n+1;
//if i=k then break;
end;
Edit3.Text:='i='+IntToStr(i)+' No: '+IntToStr(n); //这里的i已经是比Edit2中的数字大1了,如果不加Break的话。
end;
赶快回头检查下之前的Code!!!!!!
哈哈
还好我不会在
for do begin
end;
后面再引用 I 的值。
你才知道
只有这样才能知道i是否已经超过了最大边界
比如
for i := 2 to 5 do
begin
end;
for这一句在汇编中是这样表示的 cmp ebx,$06,而不是$05
原因LS解释了
一般不要循环完了直接引用循环变量，DELPHI编译时已经给过警告了...
恩，知道了。
要是delphi给你优化成downto的话,还不知道是啥样呢
应该与编译有关
00457DA0 686A7E4500 push $00457e6a
00457DA5 64FF30 push dword ptr fs:[eax]
00457DA8 648920 mov fs:[eax],esp
Unit1.pas.33: n:=0;
00457DAB 33C0 xor eax,eax
00457DAD 8945F0 mov [ebp-$10],eax
Unit1.pas.34: k:=StrToInt(Edit2.Text);
00457DB0 8D55E4
相关问答：
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
