ich hab das versucht mal hin zu bekommen bin aber gescheitert. vielleicht hilft ja folgende funktion weiter um das ganze zu verwirklichen
Delphi-Quellcode:
function GetZahl(DezZahl: Integer; texts: String): String;
var LBasis, LStellen, NeueZahl, Lwdh1, Ltmpbasis, Ltmp1: Integer;
begin
DezZahl := DezZahl;
LBasis := length(texts);
NeueZahl := LBasis;
LStellen := 1;
while NeueZahl <= DezZahl do
begin
NeueZahl := NeueZahl * LBasis;
LStellen := LStellen + 1;
end;
result := '';
for LWdh1 := LStellen downto 1 do
begin
Ltmpbasis := trunc(math.Power(LBasis, Lwdh1 - 1));
Ltmp1 := DezZahl div LtmpBasis;
result := result + texts[Ltmp1+1];
DezZahl := DezZahl - Ltmp1 * Ltmpbasis;
end;
end;
Beispielaufruf:
Getzahl(255, '0123456789ABCDEF'); //ergebniss sollte dann "FF" sein