| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

$HEX, DEC , А как же работать с binary

TeNY ©   (2004-10-24 17:11:00) 

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

---

begin...end   (2004-10-24 20:33:00) [1]

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

---

GanibalLector   (2004-10-24 17:25:00) [2]

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

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


---

begin...end   (2004-10-24 17:19:00) [3]

mov eax, ...b

---

GanibalLector   (2004-10-24 17:17:00) [4]

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

---

GanibalLector   (2004-10-24 17:13:00) [5]

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

---

Наверх