Delphi-Funktion überschreiben System.Round

Question

Ich habe gerade festgestellt, dass eine Software, die ich neu implementieren muss, extensive System.Round() verwendet. Das Problem ist, dass diese Funktion "Bankers runding" verwendet und das Verhalten nicht wie in Math.RoundTo() geändert werden kann (rmDown, rmUp, rmNearest, rmTruncate).

Ich muss das Verhalten auf "normale Runden" ändern (12.5 -> 13 NICHT 12.5 -> 12) ... Also ich möchte System.Round() global überschreiben. Ich möchte dies tun, weil Round() so oft verwendet wird und ich nicht alle manuell ändern möchte.

Wie ist das möglich?

Answer 1

WARNUNG: Obwohl die folgende Antwort die gestellte Frage anspricht, würde ich empfehlen, dass niemand sie jemals verwendet. Wenn Sie eine andere Rundung als Round durchführen möchten, schreiben und rufen Sie eine dedizierte Funktion auf.

---

Sie können einen Laufzeitcode Haken verwenden, um die Implementierung von Round zu ändern.

Die Falte ist, dass es ein wenig schwierig ist, die Adresse der Round Funktion zu bekommen, obwohl es ein intrinsischer ist. Sie müssen auch darauf achten, die verwendete Aufrufkonvention zu befolgen. Der Eingabewert wird im x87-Stack-Register ST(0) übergeben und der Rückgabewert ist eine 64-Bit-Ganzzahl in EDX:EAX.

So geht's.

procedure PatchCode(Address: Pointer; const NewCode; Size: Integer); 
var 
    OldProtect: DWORD; 
begin 
    if VirtualProtect(Address, Size, PAGE_EXECUTE_READWRITE, OldProtect) then 
    begin 
    Move(NewCode, Address^, Size); 
    FlushInstructionCache(GetCurrentProcess, Address, Size); 
    VirtualProtect(Address, Size, OldProtect, @OldProtect); 
    end; 
end; 

type 
    PInstruction = ^TInstruction; 
    TInstruction = packed record 
    Opcode: Byte; 
    Offset: Integer; 
    end; 

procedure RedirectProcedure(OldAddress, NewAddress: Pointer); 
var 
    NewCode: TInstruction; 
begin 
    NewCode.Opcode := $E9;//jump relative 
    NewCode.Offset := 
    NativeInt(NewAddress)-NativeInt(OldAddress)-SizeOf(NewCode); 
    PatchCode(OldAddress, NewCode, SizeOf(NewCode)); 
end; 

function System_Round: Pointer; 
asm 
    MOV  EAX, offset System.@Round 
end; 

procedure _ROUND; 
asm 
     { -> FST(0) Extended argument  } 
     { <- EDX:EAX Result     } 

     // your implementation goes here 
end; 

initialization 
    RedirectProcedure(System_Round, @_ROUND); 

Wenn Sie lieber Ihre Version in Pascal als asm implementieren, dann müssen Sie die Nicht-Standard-Aufrufkonvention von _ROUND zum Standard Delphi-Aufrufkonvention anzupassen. Gefällt mir:

function MyRound(x: Extended): Int64; 
begin 
    // your implementation goes here 
end; 

procedure _ROUND; 
var 
    x: Extended; 
asm 
     { -> FST(0) Extended argument  } 
     { <- EDX:EAX Result     } 

     FSTP TBYTE PTR [x] 
     CALL MyRound 
end; 

Beachten Sie, dass ich hier angenommen habe, dass Ihr Programm 32 Bit zielt. Wenn Sie 64 Bit zielen müssen, dann sind die Prinzipien sehr ähnlich, aber die Details unterscheiden sich offensichtlich.

Answer 2

UNIT MathRound; 

INTERFACE 

FUNCTION ROUND(X : Extended) : Int64; 

IMPLEMENTATION 

FUNCTION ROUND(X : Extended) : Int64; 
    BEGIN 
    Result:=TRUNC(X+0.5) 
    END; 

END. 

Wenn Sie die oben in MathRound.PAS speichern i-Verzeichnis Ihres Projekts, dann dieses Gerät in die Quelldateien enthalten, werden Sie eine mathematische Funktion RUNDEN haben statt Rundung des Bankers, die standardmäßig implementiert ist.

Es wird abgerundet -12,5 bis -12 (dh. Immer für Null-Werte auf 0,5 gerundet) und -12,1 bis -11. Wenn Sie eine „logische“ Runden wollen, sollten Sie diese Zeile verwenden statt:

IF X<0.0 THEN Result:=-TRUNC(ABS(X)+0.5) ELSE Result:=TRUNC(X+0.5) 

als Funktionskörper.

führt dies in

ROUND(12.5) = 13 
ROUND(12.1) = 12 
ROUND(-12.5)= -13 
ROUND(-12.1)= -12 

Answer 3

Sie über manuell erforderliche Zeit und Mühe besorgt sind, um alle vorhandenen Round Anrufe nennen sonst etwas zu ändern. Also ändere sie nicht manuell. Verwenden Sie ein Werkzeug, um es zu automatisieren. Zum Beispiel könnten Sie sed verwenden.

sed -i -e "s/\bRound\b/BiasedRoundAwayFromZero/g" *.pas 

Mit dieser Änderung ist Ihr Code jetzt explizit darüber, was es rundet.Es erfordert nicht, dass jeder, der Ihren Code liest, weiß, dass ein Patch an anderer Stelle im Code angewendet wurde, um das globale Verhalten von Standardfunktionen zu beeinflussen. Es wirkt sich auch nicht auf Code aus, den Sie mit anderen Bibliotheken verknüpfen, die sich möglicherweise auf das Standardverhalten von Round verlassen und durch eine globale Änderung beschädigt werden.

Answer 4

// Banker omzeilen Runde

function RoundN(X: double): double; 
const 
    cFuncName = 'RoundN'; 
begin 
    Result := Trunc(X + Frac(X)); 
end;