Also es echt witzig deinen Beitrag zu lesen.
Ich hätte das ein wenig anders gemacht.
Denn eine Basis > 16 ist durchaus auch denkbar
Delphi-Quellcode:
function DectoX(Value:Integer;Basis):String;
var t:Integer;
begin
Result := '';
if Value < 0 then begin
Result := '-';
value := - Value;
end;
while Value > 0 do begin
t := Value Mod Basis;
if t < 10 then
result := Result + inttostr(t)
else
Result := Result + chr(55+T);
Value := Value div Basis;
end;
end;
Diese Variante dürfte bis Basis 26 gehn, ist aber so aus dem Kopf gecoded ..