Formulargröße auf HighDPI-Monitor speichern

[Michael II]

Ja du musst aber natürlich in deiner MulDiv() deine Rundungsfunktion MathRound() verwenden - so wie von dir gepostet verwendest du trunc().

Also so:

Delphi-Quellcode:

 Result := MathRound( (nNumber * nNumerator) / nDenominator);

Weiter musst du den Fall nDenominator=0 abfangen (Result := -1) und auch mögliche Überläufe ((nNumber * nNumerator) / nDenominator kann so gross werden, dass das Resultat nicht in einem integer Platz hat).


Weiteres Problem: Möglicher integer Überlauf bei der Multiplikation nNumber * nNumerator

Deine MulDiv Funktion liefert zum Beispiel für

Delphi-Quellcode:

var x : integer;
begin
    x := MulDiv( maxint div 2, maxint div 2, maxint div 2 );

x = -2, müsste aber natürlich maxint div 2 zurückgeben.

Schreibe deshalb int64(nNumber) * int64(nNumerator) statt nNumber * nNumerator, sonst hast du wenig Freude, wenn nNumber * nNumerator > maxint.

OK für deinen "Fenster-Fall" wirst du kaum je solche Werte als Argumente haben. Aber wenn du MulDiv nachbilden willst, dann musst du darauf achten.

[DieDolly]

Ich hätte nicht gedacht, dass die windowseigene Muldiv() das alles berücksichtigt. Was berücksichtigt die denn noch? Denn die ist scheinbar plattformspezifisch.

[Fritzew]

Zitat:

Schreibe deshalb int64(nNumber) * int64(nNumerator) statt nNumber * nNumerator, sonst hast du wenig Freude, wenn nNumber * nNumerator > maxint.

oder verwende gleich die
MulDivInt64(.....) aus der System Unit. Die ist crossplatform angelegt sollte also keine Problem machen.

[DieDolly]

Zitat:

Zitat von Fritzew (Beitrag 1430262)

Zitat:

Schreibe deshalb int64(nNumber) * int64(nNumerator) statt nNumber * nNumerator, sonst hast du wenig Freude, wenn nNumber * nNumerator > maxint.

oder verwende gleich die
MulDivInt64(.....) aus der System Unit. Die ist crossplatform angelegt sollte also keine Problem machen.

Warum Unmengen an CPU Befehlszyklen verbraten, wenn es auch mit weniger geht?

[Fritzew]

Zitat:

Zitat von DieDolly (Beitrag 1430263)

Warum Unmengen an CPU Befehlszyklen verbraten, wenn es auch mit weniger geht?

Gefühlt oder gemessen?

[DieDolly]

Habe kurz in den Code reingeguckt und der scheint grob überschlagen 10x länger zu sein als der aus diesem Thread hier.