Integer umwandeln (ähnlich IntToHex)

[Stephan]

Hi,

Stimmt Kann ja vom Code garnicht sein. Allers klar, werde es erweitern. Dankeschön!

[moritz]

Du könntest ein eigene ChrToInt-Funktion schreiben, so in der Art:

Delphi-Quellcode:

function ChrToInt2(Value: Char): Integer;
begin
  Result := 0;
  try
    Result := IntToStr(Value);
  except
    Result := Ord(Value) - 55;
  end;
end;

So in die Richtung. Es handelt sich ja immer nur um ein Char, das umgewandelt wird.

[Stephan]

Hi,

noch einfacher gehts so:

Delphi-Quellcode:

function BaseToDec(Value:String; Base:Integer):Int64;
var i, j:Integer;
begin
  j:=0;
  Result:=0;
  for i:=Length(Value) downto 1 do
    begin
    Result:=Result + getint(Value[i]) * Potenz(Base,j);   <-- getint
    inc(j);
    end;
end;

klappt wunderbar