@Memnarch
Versuch doch mal folgende Idee (nicht getestet) :
Delphi-Quellcode:
PROCEDURE Test1;
var Wert2 : Integer;
begin
Wert2 := Integer((2 shl 32) div Wert);
Ergebnis := Integer(((A*x + B*Y + C*Z) * Wert2) shr 32);
Ergebnis2 := Integer(((A*x2 + B*Y2 + C*Z2) * Wert2) shr 32);
Ergebnis3 := Integer(((A*x3 + B*Y3 + C*Z3) * Wert2) shr 32);
end;
Normalerweise müsste der Compiler das gut optimieren können.
Wenn nicht, hilft Assembler. Da das Ergebnis in 2 Bytes passt,
kannst Du nach der Multiplikation einfach den Inhalt von DX benutzen.
MfG
bit4bit