Zahl-Umrechnungen Bin, Oct, Dec, Hex

[MaBuSE]

Zitat von KLS:

hmm, beide rechener haben probleme bei negativen zahlen
ansonsten sind die progs durchaus nutzbar

Dann denk Dir doch einfach ein - vor die Zahl

Code:

-5 (dec) = -1001 (bin)

Delphi-Quellcode:

if abs(QuellBasis) <> QuellBasis then begin Neg := True; QuellBasis := QuellBasis * -1; end;
ZielBasis := Umwandeln(QuellBais);
if Neg then ZielBasis := ZielBais * -1;