Funktion die Zahlensysteme umrechnen kann bitte testen

[Christian18]

Hallo,

ich habe mir eine kleine Function geschrieben, die mir eine Dezimal Zahl in andere Zahlensysteme umrechnen kann. Ich bin mir nun nicht sicher, ob die funktion auch wirklich das tut, was sie soll. Könntet ihr die mal testen?

Muss ich eigentlich noch prüfen, ob die Basis > 10 ist? weil es ab Basis 11 ja mit A beginnt. Oder kann ich das so machen wie ich das gemacht habe?

Kann es bei einer Basis < 11 einen rest geben, der 10 oder größer ist?

Delphi-Quellcode:

function DecToX(Value, Basis : Byte) : String;
begin
  Result:='';
  while Value > 0 do
    begin
      case Value mod Basis of
        10 : Result:=Result + 'A';
        11 : Result:=Result + 'B';
        12 : Result:=Result + 'C';
        13 : Result:=Result + 'D';
        14 : Result:=Result + 'E';
        15 : Result:=Result + 'F';
        else Result:=Result + IntToStr(Value mod Basis);
      end;
      Value:=Value div Basis;
    end;
  Result:=ReverseString(Result);
end;

MFG Christian18