Czy są w Delphi 6 jakieś f-cje typu:
intToHex;
HexToInt
IntToBin
BinToInt
HexToBin
BinToHex
czy muszę sam pisać?
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;