Delphi + Assembly 数组访问答案

【问题标题】：Delphi + Assembly array accessDelphi + Assembly 数组访问
【发布时间】：2011-06-20 05:22:13
【问题描述】：

我在访问程序集 (delphi) 中的数组元素时遇到问题。

代码是：

procedure TMaskBit.AllocBuffer;
begin
     SetLength(DataIn, 6);  //array of integer
     DataIn[0] := 1 ;
     DataIn[1] := 2 ;
     DataIn[2] := 3 ;
     DataIn[3] := 4 ;
     DataIn[4] :=5 ;
     DataIn[5] := 6 ;
end;

procedure TMaskBit.SetValue();
asm
   lea edx, [eax].TMaskBit.DataIn     //indice
   mov ecx, [edx+8]                  //second ement
   mov [EAX].TMaskBit.Z, ecx
end;

可能出了什么问题？

谢谢！

【问题讨论】：

说说一些症状怎么样？
我在 Z 变量上看到了垃圾。我希望看到数字 2 (DataIn[1])。
你确定用汇编程序写这个是个好主意吗？
这只是一个简单的例子。我正在学习汇编程序。

标签： delphi assembly basm

【解决方案1】：

动态数组是一个指针，所以你应该使用mov而不是lea：

type
  TIntArray = array of Integer;

  TMaskBit = class
    Z: Integer;
    DataIn: TIntArray;
    procedure AllocBuffer;
    procedure SetValue();
  end;

procedure TMaskBit.AllocBuffer;
begin
     SetLength(DataIn, 6);  //array of integer
     DataIn[0] := 1 ;
     DataIn[1] := 2 ;
     DataIn[2] := 3 ;
     DataIn[3] := 4 ;
     DataIn[4] :=5 ;
     DataIn[5] := 6 ;
end;

procedure TMaskBit.SetValue();
asm
   mov edx, [eax].TMaskBit.DataIn     // edx references DataIn[0] !!!
   mov ecx, [edx+8]                   // DataIn[2]
   mov [EAX].TMaskBit.Z, ecx
end;

procedure TForm7.Button3Click(Sender: TObject);
var
  MB: TMaskBit;

begin
  MB:= TMaskBit.Create;
  MB.AllocBuffer;
  MB.SetValue;
  ShowMessage(IntToStr(MB.Z));
end;

【讨论】：