突然发现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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
