Delphi + Assembly array access

Question

I am having a problem to access an element of an array in assembly(delphi).

The code is:

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;

What might be wrong?

Thanks!

I see trash on Z variable. I expected to see number 2 (DataIn[1]). — p.magalhaes
– p.magalhaes, Commented Jun 20, 2011 at 5:37

kludg · Accepted Answer · 2011-06-20 05:36:50Z

13

Dynamic Array is a pointer, so you should use mov instead of 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;

answered Jun 20, 2011 at 5:36

kludg

27.6k7 gold badges72 silver badges122 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Delphi + Assembly array access

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related