delphi6 问题1

在delphi里可以内嵌汇编语言直接访问一些寄存器如EAX,而在delphi6里执行下面代码会跳不出循环

procedure Delphi6EAXBug; // loops forever with Delphi 6
var
  i: integer;
begin
  for i := 0 to 15 do
    asm
      mov eax,2
    end;
end;

解决办法

procedure Delphi6EAXBug;
var
  i: integer;
begin
  for i := 0 to 15 do
    asm
      push eax
      mov eax,2
      pop eax
    end;
end;

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18