Code: Alles auswählen
{Result, Wert1 und Wert2 sind vom Typ Currency.}
Result := Min(Wert1, Wert2);
{erzeugt den Fehler: Error: Can't determine which overloaded function to call}Code: Alles auswählen
program Project1;
uses
math;
var
Wert1,Wert2:currency;
function Min(val1,val2:currency):currency;overload;inline;
begin
result := MIN(double(val1),double(val2));
end;
begin
Wert1:= 1.004451;//1.00445 funktioniert nicht :-(
Wert2:= 1.00444;
writeln('Wert1 ',Wert1);
writeln('Wert2 ',Wert2);
writeln(min(Wert1,Wert2));
writeln(min(Wert2,Wert1));
end.Code: Alles auswählen
Wert1 1.004500000000000000E+00
Wert2 1.004400000000000000E+00
1.004400000000000000E+00
1.004400000000000000E+00
Code: Alles auswählen
function MinCurrency(a, b: Currency): Currency;
begin
if a < b then
Result := a
else
Result := b;
end;Da ist m.E. falsch. Wenn du dir die Wertebereiche von Int64 und Currency ansiehst (http://wiki.lazarus.freepascal.org/Data ... tete_Typen), dann erkennst du, dass beide dieselbe Ziffernabfolge haben, nur ist 4 Stellen von rechts ein Komma eingeschoben. D.h. Currency hat intern dieselbe Darstellung wie der Int64, der mit 10000 multipliziert worden ist. Aus diesem Grund sind Currency-Vergleiche problemlos möglich, Single-, Double- bzw. Extended-Vergleiche schlagen dagegen regelmäßig wegen Rundungsfehlern fehl.Horst_h hat geschrieben:http://www.delphibasics.co.uk/RTL.asp?Name=Currency
also scheint currency ( 53 bit Mantisse ) ein double-Wert zu sein.
Erstelle hierzu bitte einen Bug-Report unter http://bugs.freepascal.org/Ally hat geschrieben:Aber nochmal zu meiner Frage, warum funktioniert es in der 32 Bit Version?
Und warum gibt es für Min keine Currency-Version in Math?
Vielleicht liest ja hier jemand mit der das mal einbauen kann oder jemanden kennt der da kompetent ist.
Ich bezog mich auf die Angabe bei DelphiBasics.53 Bit Mantisse ist double.D.h. Currency hat intern dieselbe Darstellung wie der Int64
Es gibt wohlmöglich auch eine { zukünftig } andere Version davon.{$ifdef FPC_CURRENCY_IS_INT64}
Aktuell gibt es AFAIK keine andere Version. Es ist nur ein übliches Vorgehen um weitere Versionen schnell und ohne Effekte auf die bisherigen Implementierungen einbauen zu können.Horst_h hat geschrieben:Wenn man in den Kompilerquelltext unter rtl/inc/gencurr.inc schaut steht dortEs gibt wohlmöglich auch eine { zukünftig } andere Version davon.{$ifdef FPC_CURRENCY_IS_INT64}
Dabei sind dX und dY lokale Variablen vom Typ word und FeldGr eine globale Variable vom Typ byte.dX := round(dX * FeldGr);
dY := round(dY * FeldGr);
Klicke ich auf die Fehlermeldung dann erscheint:Error: Can't determine which overload function to call
gencurr.inc (55,14) Hint: Found declaration: Round (Comp):Int64
gencurr.inc (33,14) Hint: Found declaration: Round (Currency):Int64
Habe ich jetzt eher ein Problem mit der Installation von Lazarus oder habe ich die Funktion round mit einem falschen Datentyp aufgerufen?Kann die Datei "gencurr.inc" nicht finden.
...
Code: Alles auswählen
WenigKohle := math.min (Dollar,Euro);Code: Alles auswählen
Type
currency = extended;Code: Alles auswählen
extended = double;The currency type is a fixed-point real data type which is internally used as an 64-bit integer type (automatically scaled with a factor 10000), this minimizes rounding errors.
wp_xyz hat geschrieben: Fr 11. Dez 2020, 19:38 Im Zweifelsfall glaube ich da eher der offiziellen Dokumentation https://www.freepascal.org/docs-html/ref/refsu5.html:
The currency type is a fixed-point real data type which is internally used as an 64-bit integer type (automatically scaled with a factor 10000), this minimizes rounding errors.
Ja, nachdem der Post eine Weile gepostet war und ich in Ruhe vor dem Fernseher gesessen bin, kam mir auch der Gedanke, dass das Produkt aus zwei ganzzahligen Zahlen ebenfalls ganzzahlig sein muss.Mal so gefragt: was gibt's denn bei einem Produkt von word und byte zu runden...? Sind doch beides Ganzzahlen.
Verein
Links
Suche