Delphi汇编数组访问

发布时间：2020-12-15 09:47:43 所属栏目：大数据来源：网络整理

导读：我在组装(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;procedu

我在组装(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;

可能有什么问题？

谢谢！

解决方法

动态数组是一个指针,所以你应该使用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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!