Ассемблерная вставка в Delphi

[Mixasik]

Доброго времени суток. Возникла необходимость по учебе использовать asm вставку в Delphi, но не работает У меня есть:

Tarray = array of integer;
***
oa : TArray;
***
    mov ax , 5
    mov edi, offset oa
    mov cx, 5
    @s:
      sub [edi], ax
      add edi, 2
    loop @s

Вылетает ошибка Access violation Подскажите что я не так делаю?
p.s Массив не пустой и в нем точно больше 5 элементов.

[Serge_Bliznykov]

ну Вы и смелый человек...
А кто Вам сказал, что так можно?!
Дело в том, динамический массив - это УКАЗАТЕЛЬ.
Причём, пока не выполнили SetLength - указатель "В НИКУДА"...
Вы уверены, что Вам нужен именно динамический массив?!?

p.s. что такое динамический массив "изнутри" посмотрите в книжке Стив Тейксейра, Ксавье Пачеко. "Borland Delphi 5. Руководство разработчика"

[BOBAH13]

mov ax , 5
    mov edi, offset oa
    mov cx, 5
    @s:
      sub [edi], ax
      add edi, 2
    loop @s

делает вот что

edi := oa;
while(cx > 0) do
begin
  edi := Pointer(Integer(edi) - 5); // вообще не пойму почему 5, и почему минус?
  edit := Pointer(Integer(edi) + 2); // очень у кого-то математика страдает :)
  cx := cx - 1;
end;

Где тут какая либо логика, я не наблюдаю вообще (ну кроме цикла )

[Mixasik]

  asm
    mov edi, oa     // Получаем адрес первого элемента массива
    mov ax, key     // Передаем ключ в регистр
    mov cx, leng    // Передаем число элементов в регистр
@s_crypt:           // Метка цикла шифрования
      add [edi], ax // Увеличиваем на ключ
      add edi, 2    // Переходим на следующий элемент массива
      dec cx        // Уменьшаем на единицу значение
      cmp cx, 0     // Псевдо вычитание
jnz @s_crypt        // Если не равно нулю, повторим
  end;

Вот так заработало, насчет адреса я понял, но и как вы писали не работало Но как только заменил цикл на ручную проверку и прыжок все заработало.