Funktionen in Assembler unter Delphi 7

[OlafSt]

Zitat von kwhk:

Delphi-Quellcode:

Function HiWord(pZahl:Longint):Word;
  ASM
    PUSH  EAX
    POP   AX
    POP   AX
    AND   EAX,0FFFFh
  End;

Das ist doch viel zu kompliziert. Ein simpler Einzeiler genügt:

Delphi-Quellcode:

Function HiWord(pZahl:Longint):Word;
  ASM
    SHR EAX,16
  End;