Einzelnen Beitrag anzeigen

dino

Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
 
Delphi 5 Professional
 
#8

Re: Inline ASM für Win32 - Einsteiger Crashkurs

  Alt 2. Apr 2007, 20:18
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
  Mit Zitat antworten Zitat