Einzelnen Beitrag anzeigen

Stephan

Registriert seit: 28. Jun 2002
Ort: Tuttlingen
245 Beiträge
 
Delphi 2007 Professional
 
#13

Re: Integer umwandeln (ähnlich IntToHex)

  Alt 28. Mär 2005, 23:26
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
viele Grüße

Stephan
  Mit Zitat antworten Zitat