Есть ли возможность визуализировать биты от 0 до 255 (0000 0000 до 1111 1111) стандартными способами?? Мне в моем случае необходимо заполнить столбец TStringGrid этими значениями. Я уже придумал цикл заполнения, но он мне он не нравиться и я хочу узнать существуют ли стандартные методы?

Вывод двоичных чисел стандартными средствами - не видел. Думаю, что придется оставить то, что ты написал.

Кстати, не подскажите как байт на биты разложить?

В смысле? 1 байт=8 бит.

Цитата

В смысле? 1 байт=8 бит.

Ну вот, допустим, есть переменная типа байт, в которой какой-нибудь байт хранится; есть еще, допустим, строка. Так вот, как в эту строку записать что-то вроде "00101100"?

Переведи в двоичную форму. Как? Это школьный курс информатики.

Цитата(serious @ 17.3.2003, 21:38)

Цитата В смысле? 1 байт=8 бит. Ну вот, допустим, есть переменная типа байт, в которой какой-нибудь байт хранится; есть еще, допустим, строка. Так вот, как в эту строку записать что-то вроде "00101100"?

Я тут поэтому тему и запостил)) Меня ведь тоже подобное интересует.)

Я думаю, что ето токо на ассемблере можно сделать, если не сужествует уже готовых средств. Прийдется мне воспользоваться своим циклом заполенния 256 строк StringGrid'a значениями от 0000 0000 до 1111 1111((

Цитата(Song @ 17.3.2003, 21:55)

Переведи в двоичную форму. Как? Это школьный курс информатики.

Ну хорошо, тогда так: есть 8 переменных (пусть boolean) и в каждую надо записать соответственно true или false. Как?

Цитата(Song @ 17.3.2003, 21:55)

Переведи в двоичную форму. Как? Это школьный курс информатики.

А ведь и точно)))) Совсем из головы выпали формулы перевода, хотя информатики у нас и не было почти, но я их помню

млин, какой ассемблер, какие формулы

var
b: Byte;
s: String;

...

b := 3;
s := '';
for i := 0 to 7 do
if (b and (1 shl i)) <> 0 then
s := s + '1'
else
s := s + '0';

ShowMessage(s);

Точнее так:

Код

var  b : byte;  s : string;  i : integer;  temp : array [0..7] of byte; begin  b := 5;  s := '';  for i := 0 to 7 do    if (b and (1 shl i)) <> 0 then      temp[7-i] := 1    else      temp[7-i] := 0;  for i := 0 to 7 do    s := s+IntToStr (temp[i]); ShowMessage (s);

не проше так...

var
b: Byte;
s: String;
i: Integer;
begin
b := 3;
s := '';
for i := 1 to 8 do
if (b and ((1 shl 8) shr i)) <> 0 then
s := s + '1'
else
s := s + '0';
ShowMessage(s);
end;

вот еще вариант, основное отличие от всех остальных в том, что в данном случае данные представляются не структурированными, очень удобно для побитых дампов памяти. Есть только ограничение на количество одновременно анализируемых бит в 65536 штук = 8Kb.

function TestBit(var buf; bit: Word): Boolean;
asm
bt [EAX], DX
setc AL
end;

function GetBits(var buf; bits: Word): String;
var
i: Integer;
begin
SetLength(Result, bits);
for i := 0 to bits - 1 do
if TestBit(buf, i) then
Result[bits - i] := '1'
else
Result[bits - i] := '0';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
data: array[1..3] of Byte;
begin
data[1] := 3;
data[2] := $FF;
data[3] := 128;
Caption := GetBits(data, 3 * 8);
end;

Esli skorost' kritichna:

Цитата

function ToBin(num: Integer): ^string; type TCharArr = array[1..16] of Char; var str: TCharArr = "0000000000000000"; begin  asm      mov  ax, [num]      lea  si, str next:shr  ax, 1      adc  [si], 48      or   ax, ax      jnz  next  end;  Result := @str; end;

Hotja, ja mog oshibit'sja v sintaksise. V paskale ni razu ne delal svoih vstavok na ASMe. I luchshe sprosit' Chingachguka.

P.S. Admin, kogda budet translit???