Inline ASM für Win32 - Einsteiger Crashkurs

[dino]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject); 
var test : Integer; 
begin 
  test := 22; // test wird der Wert 22 zugewiesen 
  asm 
   MOV EAX, test // schreibe test in EAX 
   CDQ // EAX wird auf 64 Bit erweitert  
   MOV ECX, 5 // schreibe 5 in ECX  
   IDIV ECX // dividiere    
   MOV test, EAX // schreibe Ergebnis zurück nach test 
  end;  
ShowMessage(IntTosTr(test)); 
end;

da ich 22 durch 5 für komisch hielt, hab ichs gleich mal ausprobiert und kriegte sogar etwas noch komischereres raus: idiv führt scheinbar folgende operationen aus: dec ecx;mov eax,ecx