Deiphi编译优化导致的死循环

请看下面这段代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  strColor: string;
  i, R, G, B, p: integer;
  strlist: TStringList;
begin
  strColor := medt.Text + '-';
  strlist := TStringList.Create;
  try
    for R := 0 to 2 do       //把变量R改为i正常
    begin
      //showmessage(inttostr(r));   加上这句也正常了 循环体内读过R 值
      p := pos('-', strColor);
      strlist.Add(copy(strColor, 0, p-1));
      delete(strColor, 1, p);
    end;

    R := strToint(strlist[0]);
    G := strToint(strlist[1]);
    B := strToint(strlist[2]);
  finally
    strlist.Free;
  end;

  Self.Color := TColor (RGB (R, G, B));

  edtColor.Text := '$' + IntToHex (TColor (RGB (R, G, B)), 8);

  edtColor.SetFocus;
end;

因为循环语句中没有没有使用R变量,而在循环外有对R的使用。编译器优化导致的错误? delphi中,在循环体内是不能更改循环因子的。

下面贴出反编译的汇编代码:

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 3
    评论
deiphi函数工厂,是一个函数快速生成器,3年前的作品,纯粹是为了好玩,和一个网友一起合作写的。东西很杂,带一个数据库,能搜索一些以前搜集的资料。不过当时和朋友合作的时候,是打算写成IDE插件那样,方便自己使用的,不过后来也没修改了(都忘记为什么没继续做的原因了。。。。。。汗一下)。前几天朋友在QQ上问我问题,为了回答他的问题,我满世界找代码的时候,不小心在一个不起眼的目录里面发现了这个东西,想来也好久没更新,索性拿出来共享一下 ,虽然不是什么好复杂的技术和高深的代码,但是还是希望对大家学习Delphi能有点帮助。 软件包含10个模块分别是: 发邮件函数快速生成器 对话框函数快速生成器(可生成MessageBox和MssageDlg函数) 键值快速查许(查许按键的ASCII码) 注释生成器(自动折行生成注释块) Delphi常用函数说明与示例(数据库程序,显示常见Delphi函数,有说明和例子,并且内有TreeView读取数据库的方法) API函数中文说明(能快速查询API函数) 函数库(根据分类整理函数用途的数据库) ACCESS工具(可对Access数据库文件进行压缩与修复,同时能查看Access数据库密码) Delphi程序编辑器(类似Delphi的源码编辑器) 资源制作(调用Delphi相应版本的资源编译器,可视化编译自定义任意文件到*.res文件中) 更多说明,请下载查看压缩包。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 3

打赏作者

98049522

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值