Danke für Deine Antwort. Ich habe inzwischen auch herausbekommen, daß die Übergabewerte Longint im EAX bereitgestellt werden. Meine Funktionen sehen nun so aus und funktionieren.
Delphi-Quellcode:
Function HiWord(pZahl:Longint):Word;
ASM
PUSH EAX
POP AX
POP AX
AND EAX,0FFFFh
End;
Function LoWord(pZahl:Longint):Word;
ASM
AND EAX,0FFFFh
End;
Die beiden AND EAX,0FFFFh Befehle müssten nicht sein, da das Hi-Wort in EAX beim Ergebnis (WORD) keine Rolle spielt.
Sebastian, ich habe auch Deine Functionen probiert, dabei allerdings bei LoWord das Literal in $FFFF geändert, sonst wird ja nur das LoByte bereitgestellt. Wenn ich in der CPU debugge, sehe ich, daß die Variable ANumber tatsächlich das Register EAX ist. Es sind also immer noch die sehr schnellen 1-Befehl-Functionen, die man mit
ASM machen kann, möglich.
Zitat:
Angesichts verschiedener Plattformen, die Delphi unterstützt, ist es auch die weit bessere Lösung ohne Assembler zu arbeiten wo das möglich ist.
Da hast Du natürlich recht. Mir ging es nur darum, alte vorhandene Sourcecodes mit möglichst wenig Aufwand unter Windows 8 und Delphi 7 zum laufen zu bringen.