Ergänzung zu "Von beliebigem Zahlensystem in ein anderes"

[sx2008]

Ich hätte da eine Vereinfachung:

Delphi-Quellcode:

// Alt
Result := Result + (tmp*Round(IntPower(Base,Length(Value)-i))); 

// Neu
Result := Result * base + tmp;

Ungetestet, aber es ist im Prinzip das Horner Schema.