Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Inline ASM für Win32 - Einsteiger Crashkurs

  Alt 2. Apr 2007, 20:53
Du hast ganz normal 22 div 5 ausgeführt. Und das ergibt 4 (Rest 2). Der Rest, also die 2, steht in EDX. Dafür machst du ja das CDQ.
Falls du am Ende Single, oder Double haben willst, musst du über dir FPU gehen.

Variante über FPU:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var test : Integer;
    erg:double;
begin
  test := 22; // test wird der Wert 22 zugewiesen
  asm
    fild dword ptr [test] //32bit-Integer Wert aus Test in FPU laden
    push 5 //5 auf den Stack legen
    fild dword ptr [esp] //32bit-Integer-Wert am ende des Stacks in FPU laden
    pop eax //Stack bereinigen
    fdiv //Division in FPU (der beiden zuletzt geladenen Werte)
    fstp qword ptr [erg] //Ergebnis als 64bit Fließkommawert (=double) in erg speichern
  end;
  ShowMessage(floatTosTr(erg)); //erg = 4,4
end;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat