Zahl-Umrechnungen Bin, Oct, Dec, Hex

[MaBuSE]

Zitat von arbu man:

Guck dir das mal an
Vieleich nützt es dir was is auch en ZahlenWandler von Dezimal auf alles

Hier kann man sich auch eine Lösung anschauen, die von allem nach allem umwandelt:
http://www.delphipraxis.net/internal...=289485#289485
(Weiter oben wird auch nochmal die Umwandlung in belibige Zahlensysteme erklärt)

In der Funktion x2y wandele ich erst die Quellbais nach dec (Basis 10) und danach in die Zielbasis.
Meine dec2alles macht fast das selbe wie Deine.
Du macht ein Result := Zifferberechnung + Result; ich mache ein Result := Result + Zifferberechnung Deine Methode ist etwas effizienter, da Du nicht erst die 1. Ziffer bestimmen musst und auch auf das Potenzieren verzichten kannst.
Aber viele Wegen führen nach Rom

Delphi-Quellcode:

  // Umrechnen dec nach BaseY 
  Result := ''; 
  // erste Ziffer bestimmen
  i := 0; 
  while Base10Zahl >= IntPower(BaseY, i) do 
  begin 
    inc(i); 
  end; 
  // die eigentliche Umwandlung
  while i>0 do 
  begin 
    Result := Result + Ziffern[Base10Zahl div Round(IntPower(BaseY, i-1))+1]; 
    Base10zahl := Base10Zahl mod Round(IntPower(BaseY, i-1)); 
    dec(i); 
  end;