Funktion die Zahlensysteme umrechnen kann bitte testen

[omata]

Hier auch noch ein Vorschlag...

Delphi-Quellcode:

function zahl_to_dez(zahl:string; basis:byte; erlaubte_zeichen:string):integer;
var exponent:byte;
    faktor:integer;
begin
  exponent:=0;
  Result:=0;
  repeat
    faktor:=pos(copy(zahl, length(zahl) - exponent, 1), erlaubte_zeichen)-1;
    Result:=round(Result + faktor * exp(exponent*ln(basis)));
    inc(exponent);
  until exponent = length(zahl);
end;

Für HEX:
  dez:=zahl_to_dez('FF', 16, '0123456789ABCDEF'); und andersherum...

Delphi-Quellcode:

function dez_to_zahl(dez_zahl:word; basis:byte; erlaubte_zeichen:string):string;
var teil_ergebnis:integer;
begin
  Result:='';
  repeat
    Result:=erlaubte_zeichen[(dez_zahl mod basis)+1] + Result;
    dez_zahl:=dez_zahl div basis;
  until dez_zahl = 0;
end;

Für HEX:
  hex:=dez_to_zahl(255, 16, '0123456789ABCDEF'); Gruss
Thorsten