Hier ein Beispiel (Anzeigewert ist jeweils 12345):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
res,test, wert, iwert: longint;
begin
wert := 10000;
iwert := (int64(1)
shl 32)
div wert;
test := 123456789;
ShowMessage('
Div: '+inttostr(test
div wert));
asm
mov eax,[test]
mul [iwert]
mov [res],edx
end;
ShowMessage('
Mul: '+inttostr(res));
end;