Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
Delphi XE5 Professional
|
AW: Rundungsproblem mit MSSQL
8. Apr 2021, 16:53
Wenn Du nur die Integer-Potenzen von 10 benötigtst, könntest Du so vorgehen:
Delphi-Quellcode:
Function IntPower_of_10(n: Word): Extended;
// Integerpotenzen von 10
VAR
i, Pow: Integer;
Begin
Pow:= 1;
For i:= 1 To n Do
Begin
Pow:= Pow*10;
End;
Result:= Pow;
End;{IntPower_of_10}
Gruß, Andreas
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
Geändert von Andreas13 ( 8. Apr 2021 um 17:21 Uhr)
|