Hab mich zwar inzwischen daran gewöhnt, ab und zu mal einen halben Tag wegen irgendwelchen blöden Delphi Bugs zu verschwenden, aber dass solche elementaren Dinge seit 15 Jahren so falsch sind, ist ja echt krass.
Eigentlich wollte ich dich gerade bremsen, nicht über die Bugs bei Fließkommazahlen herzuziehen und habe mal einen Test mit C# gemacht. Siehe da: Dort kommt das richtige Ergebnis raus. Da intern eigentlich CPU-Zahlen (oder FPU) verwendet werden sollten, hätte das doch eigentlich stimmen müssen, was das Delphi-Programm ausgibt, aber scheinbar tut es das nicht. Komisch.
Code:
namespace Test_Rundung
{
class Program
{
static void Test(double min, double max) {
int x;
double a;
double b;
x = Convert.ToInt32(Math.Ceiling(Math.Log10(max))) - Convert.ToInt32(Math.Floor(Math.Log10(min))) + 1;
Console.WriteLine(x);
a = Math.Log10(max);
b = Math.Log10(min);
x = Convert.ToInt32(Math.Ceiling(a)) - Convert.ToInt32(Math.Floor(b)) + 1;
Console.WriteLine(x);
}
public static void Main(string[] args)
{
Console.WriteLine("Hello World!");
Test(1e-2, 1e8);
Test(1e-2, 1e7);
Test(1e-2, 1e6);
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
}
Versuche mal folgendes: Delphi neu starten, Programm neu kompilieren und wenn das nicht reicht: Rechner neu starten.
Bernhard
PS: Die Einrückung der Forensoftware ist wieder brutal toll.