Hi,
nein, ich verwende zwar für eine Berechnung Double, aber das Ergebnis wird wieder als Currency nach "draussen" gegeben.
Hier ein bisschen Code:
Delphi-Quellcode:
function TClassParent.nGetDomainAreaSum: Currency;
var iIndex:Integer;
oDomain:TDomain;
nDomainArea:Currency;
begin
nDomainArea:=0;
for iIndex:=0 to oObjectListChildren.Count-1 do begin
oDomain:=TDomain(oObjectListChildren.Items[iIndex]);
nDomainArea:=nDomainArea+oDomain.nArea;
end;
result:=nDomainArea;
end;
oDomain.nArea ist auch wieder ein Currency:
property nArea:Currency read FnArea write SetnArea;
Der Rückgabewert ist bei mir ein schöner Currency und bei einem Kollegen kommt (als Meldung) so was raus:
Die Fläche stimmt nicht überein: Parent: 125,34 m² Bereiche 125,3400638874!
Gibt es einen Compilerschalter oder Projekteinstellung die ein solches Verhalten erklären könnte? (Hinweis: Projektdateien schon gecheckt, Es handelt sich um den selben Code (Versionsverwaltung).
Delphi 2007 Prof, Windows XP
GRüße
Lemmy