很奇怪的问题哦，循环倒着来

Question

哦？将循环中的代码发上来看看。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

我搞程序很多年了，也很有名气的。
你是说我没有调试？我就是调试后才知道循环是倒的。
不是系统就是软件冲突问题。
没办法，只好重新来过。
程序：
例子（窗体+按钮）：
procedure tform1.button1click(sender:tobject);
var
    i:integer;
begin
    for i:=0 to 8 do
    begin
        showmessage(inttostr(i));
    end; //这样就倒了
end;

Answer 2

以前讨论过的，只要你程序中没有用到变量i循环是倒着来的，但不会影响你的程序的结果。这是borland编译器优化的结果，可以从汇编代码里看的出

Answer 3

如果你在
for i:= 0 to 8 do
begin
end;
中什么代码都没有，i等于9或者别的都不奇怪，因为编译器发现变量i从来没有被使用，所以它可以是任何一个整数值。比如：
var i: Integer;ShowMessage(i); //每次可能显示不同值。因为在此之前i没有被赋值，在被赋值前，她可能是任何值。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 4

delphi编译器在循环内不使用循环变量时是这样的，但
procedure tform1.button1click(sender:tobject);
var
    i:integer;
begin
    for i:=0 to 8 do
    begin
        showmessage(inttostr(i));//这样用应该不会的
    end; //这样就倒了
end;
就不会了

Answer 5

哈哈，酒不醉人人自醉！！！您，先生，您，大概是碰到delphi的复活节彩蛋了！！！好好的享受！！！

Answer 6

我见到过你的情况，
前两天，我用TFilestream来读文件的前40个字节值，设的FOR循环，老是读不正确，调试时发现是倒着来的，
当时，在几个机子上试过了，都是这样
但是有时也会正确，很是莫明其妙
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 7

各位大家好！感谢大力支持。我找到原因了，这是Delphi6、cb6自身的原因。
在很多时候就表现出来，比如：数组（构造类型）、资源太少、病毒甚至防火墙在突然查毒时都会造成这种现象。
尽量用while/repeat吧，错误会少一些。