Скачать: CL | DM;

$HEX, DEC , А как же работать с binary   Найти похожие ветки 

← →
TeNY ©   (2004-10-24 17:11) [0]

$HEX, DEC , А как же работать с binary,как можно вводить данные в формате 10101010 чтобы система воспринимала их как двоичные ?

---

← →
GanibalLector ©   (2004-10-24 17:13) [1]

Так и вводи...
var y:byte;
begin
y:=$01;
y:=$ff;
...

---

← →
GanibalLector ©   (2004-10-24 17:17) [2]

Опс...внимательно прочитал и понял...
Ответ : НИКАК.
Разме только писать свои процедуры и ф-ции , тогда все получиться

---

← →
begin...end ©   (2004-10-24 17:19) [3]

mov eax, ...b

---

← →
GanibalLector ©   (2004-10-24 17:25) [4]

2 begin...end
Ага...пошло.Я даже удивился.Во как !

var y:byte;
begin
asm mov y,00110011b end;
Caption:=inttostr(y);


---

← →
begin...end ©   (2004-10-24 20:33) [5]

> TeNY ©   (24.10.04 17:11)

А вообще, ты бы уточнил вопрос... Что значит А как же работать с binary? Может быть, тебе вообще перевод в десятичную систему нужен?
Ну тогда вот что-то типа этого:

function BinaryToDecimal(BinValue: String): Integer;
var
 I, L: Integer;
begin
 Result := 0;
 L := Length(BinValue);
 for I := 1 to L do
   Inc(Result, StrToInt(BinValue[I]) shl (L - I))
end.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c