Zahlen umwandeln (Bin, Oct, Dec, Hex)

[MaBuSE]

Zitat von Morlon:

ich hab mir grad mühevoll ein kleines Progi geschrieben mit dem ich Binär, Oktal, Dezimal und HexaDezimal umwandeln kann wie ich lustig bin.

Warum schreibst Du nicht eine Funktion, die von jeder Basis in jede Basis wandeln kann?

Wenn Du z.B. die Dezimalzahl 1347605150 in ein Zahlensystem der Basis 36 wandeln möchtest, dann würde das auch gehen. (Basis 36 = Ziffer 0..9 und A..Z -> 10 wäre dann also 36, 11 = 37, 0Z = 35, ...)

function X2Y(BaseX, BaseY: Byte; BaseXZahl: string):string; Falls jemand unbedingt eine Funktion Hex nach Bin bräuchte:

Delphi-Quellcode:

function hex2bin(hex:string):string;
begin
  Result := x2y(16, 2, hex);
end;

Das ist doch der einfachste Weg, oder?