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