Zwei Ganzzahlen zu Dezimalzahl zusammensetzen

[Uwe Raabe]

Ich weiß ja jetzt nicht, wie CountDigits implementiert ist, aber man kann das auch gleich mit der Berechnung verbinden:

Delphi-Quellcode:

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;
    zahl2 := zahl2 + 1.0;
    Writeln(Format('%g', [zahl2], TFormatSettings.Invariant));
  end;
end;