F-kcje liczbowe

Czy są w Delphi 6 jakieś f-cje typu:

intToHex;
HexToInt
IntToBin
BinToInt
HexToBin
BinToHex

czy muszę sam pisać?

Przejrzyj arty i źródła to się dowiesz jest tam odpowiedz // sam z niej korzystałem

IntToHex jest, resztę musisz napisać. Widziałem gdzieś na 4p jakiś programik zamieniający liczby na różne systemy.

Cześć! HexToInt:

function HexToInt(Hex: String): Integer;
var
  I: Integer;
begin
Result := StrToIntDef('$' + Hex, 0);
end;

To jest jedyna łatwa do skumania funkcja do zmiany systemów (ja przynajmiej reszty nie pojmuję :P )

Kiedys potrzebowalem procedury co by wypisywala liczbe podana jako parametr w roznych systemach (o ile starczy znakow w zmiennej Cyfry). Bardzo latwo przerobic to na funkcje.

Procedure PiszDow(Co: LongInt; Podst: Byte);
const
  Cyfry: String = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  Wynik: String;
  P: LongInt;
  M: Byte;
begin
  Wynik:='';
  if (Podst>1) and (Podst<Length(Cyfry)) then
  begin
    Wynik:='';
    P:=Abs(Co);
    repeat
      M:=P mod Podst;
      P:=P div Podst;
      Wynik:=Wynik + Cyfry[M+1];
    until P=0;
    if Co<0 then Write('-');
    for P:=Length(Wynik) downto 1 do
     Write(Wynik[P]);
  end;
end;