Массивы ассемблер+делфи

[JohnLemon]

Ребят подскажите плз в ассемблере пока тока разбираюсь, мало что понимаю подскажите что надо изменить в коде чтобы программа находила сумму элементов массива. Прога нужна на делфи со вставкой ассемблера.

 procedure TForm1.Button1Click(Sender: TObject);
 var
 mas:array [1..3] of integer;
 res:integer;
 label m1;
 begin
 mas[1]:=5;
 mas[2]:=5;
 mas[3]:=5;
 asm
 xor eax,eax
 xor ebx,ebx
 mov ecx,4
 lea esi,[mas]
 mov al,byte ptr[mas]
 m1:
 mov bl,[esi+1]
 add eax,ebx
 inc esi
 loop m1
 mov res, eax

 end;
 ShowMessage(inttostr(res));
 end;

________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2) Кросспостинг (создание одинаковых тем) запрещён правилами форума.

Не забывайте об этом!
Модератор.

ок сори просто первый раз на вашем форуме, виноват исправлюсь )

может кто помоч просто за седня надо задачку сделать а работа встала из за этого массива ((

[GetMax]

Пробуй так

procedure TForm1.Button1Click(Sender: TObject);
var
mas:array [1..3] of integer;
res:Integer;
label m1;
begin
  mas[1]:=5;
  mas[2]:=5;
  mas[3]:=5;
asm
  xor eax,eax
  xor ebx,ebx
  mov ecx,3
  lea ebx, mas
  m1:
   mov edx, dword ptr[ebx]
   add eax, edx
   add ebx, 4
  loopne m1
  mov res, eax

end;
ShowMessage(inttostr(res));
end;

[JohnLemon]

Пасииииииибо огромное все работает ))) Примного вам благодарен

[Step_UA]

procedure TForm1.Button1Click(Sender: TObject);
 var
 mas:array [1..3] of integer;
 res:integer;
 begin
 mas[1]:=5;
 mas[2]:=5;
 mas[3]:=5;
 asm
 xor eax,eax
 mov ecx,3
 lea esi,mas
 @m1:
 add eax,[esi]
 add esi,4
 loop @m1
 mov res, eax

 end;
 ShowMessage(inttostr(res));
 end;