Zwei Ganzzahlen zu Dezimalzahl zusammensetzen

[Dalai]

Hallo, ich hätt da gern mal wieder ein Problem .

Gegeben sind zwei Zahlen, die zu einer Dezimalzahl zusammengesetzt werden sollen. Die eine Zahl ist festgelegt als 1, die andere ist frei definierbar. Beispiele:

Zahl1	Zahl2	Ergebnis
1	55	1,55
1	9999	1,9999
1	0	1,0
1	123456789	1,123456789

Vereinfacht gesagt soll der zweiten Zahl ein "1," vorangestellt werden. Für diese Operation gibt's bestimmt einen mathematischen Begriff.

Wichtiger ist aber die Frage, wie ich die Sache in Code umsetze. Bisher hab ich dies zusammengestöpselt:

Delphi-Quellcode:

var
  Zahl2: integer;
  Lsizescalingfactor: Double;
  Ldigits: integer;
begin
  Ldigits:= CountDigits(Zahl2);
  Lsizescalingfactor:= 1 + (Zahl2 / IntPower(10, Ldigits));

Es wird also die Anzahl der Stellen von Zahl2 gezählt und Zahl2 durch 10 hoch AnzahlStellen geteilt und am Ende 1 hinzuaddiert. Das funktioniert auch einwandfrei, aber geht das irgendwie einfacher?

Grüße
Dalai