$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

2 begin...end
Ага...пошло.Я даже удивился.Во как !
var y:byte; begin asm mov y,00110011b end; Caption:=inttostr(y);

> 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.

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