Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: ZahlensystemConverter

    Delphi
    by Phantom1, 22. Feb 2008
  Noch einfacher gehts mit dieser function, die wandelt alles (basis 2 bis 36) von einer beliebigen basis in jede beliebige basis:
  function BaseToBase(Value: string; StartBase, EndBase: byte): string;
  const Digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  var i: Integer; dez, j: Int64;
  begin
  Result:='';
  if (StartBase<2) or (StartBase>36) or
  (EndBase<2) or (EndBase>36) then Exit;
  ...