Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];

Вниз

Как использовать функцию BinToHex, HexToBin   Найти похожие ветки 

← →
Raper   (2003-09-02 11:28) [0]

Покажите наглядным примером как точно использовать функцию BinToHex, HexToBin если к примеру бинарное число равно 1000001 а то есть буква A

---

← →
Skier   (2003-09-02 11:31) [1]

Штука в том что все числа в компьютере - бинарные, ты лишь
работаешь со строковым представлением числа, отсюда и танцуй.

---

← →
Palladin   (2003-09-02 11:42) [2]

Перед использованием тебе необходимо выделить некоторое количество памяти для хранения результата, это и будет Text.

var
BinValue:integer;
HexValue:PChar;

BinValue:=$FF;
HexValue:=StrAlloc(SizeOf(BinValue)*2+1); // *2 - Это мы вычитали в справке, надею ты туда заглянешь
BinToHex(@BinValue,HexValue,SizeOf(BinValue));
Application.MessageBox(hexValue,"BinToHex")

Или как вариант вместо использования PChar

var
BinValue:integer;
HexValue:String;

BinValue:=$FF;
SetLength(HexValue,SizeOf(BinValue)*2);
BinToHex(@BinValue,PChar(HexValue),SizeOf(BinValue));
Application.MessageBox(PChar(hexValue),"BinToHex")

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c