突然发现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
相关问答：
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
delphi如何获取网页的返回状态，就像浏览器中返回的http 500错误，404错误等
另外能不能获取到打开一个网页的反应时间，可以大致参考网页打开的速度
谢谢！
都可以实现的，具体的你还是查资料吧！
自己 ......
