Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
28. Sep 2023
Das mit den führenden Nullen ist unter der Annahme, dass zahl2 ein Integer ist, eh nicht möglich. Dazu müsste zahl2 schon als string vorliegen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
28. Sep 2023
Ich weiß ja jetzt nicht, wie CountDigits implementiert ist, aber man kann das auch gleich mit der Berechnung verbinden:
procedure Main;
var
zahl2: Double;
begin
for var I in TArray<Integer>.Create(55, 9999, 0, 123456789) do begin
zahl2 := I;
while zahl2 >= 1.0 do
zahl2 := zahl2/10;