Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Вниз
$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 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c
