Assembler in Delphi! Speichersack?

[neolithos]

Der Vollständigkeithalber...

Delphi-Quellcode:

asm
  test edx, edx
  jns @@1
  xor eax, eax
  mov [ecx].TRect.Left, eax
  mov [ecx].TRect.Top, eax
  mov [ecx].TRect.Right, eax
  mov [ecx].TRect.Bottom, eax
  ret
@@1:
  mov eax, edx
  xor edx, edx
  push ebx
  mov ebx, 8 // damit die 8 durch etwas anderes ersetzt werden kann
  div ebx // eax = y  edx = x
  pop ebx

  imul eax, 17
  imul edx, 17

  mov [ecx].TRect.Left, edx
  mov [ecx].TRect.Top, eax
  add eax, 14
  add edx, 14
  mov [ecx].TRect.Right, edx
  mov [ecx].TRect.Bottom, eax
end;

lea hab ich jetzt gefunden!