Stringgrid и массив байт

@maksmkv · Регистрация: 29.08.2012

Author24 — интернет-сервис помощи студентам

Создал новую тему, т.к. не нашел решения. Суть есть StringGrid'ы 8x8.

Хочу вручную выделять ячейки и основываясь на выделенных ячейках считать байты. Все это буду делать по-кадрово (эффекты для LED куба).
Должно получиться на выходе так:

0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, //block
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, /Все заполнено
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, /1 строка пустая
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, / 2 строки пустые
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF,
0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF.

и т.д.
Сможете помочь?

@northener · 29.06.2015, 01:02

Сообщение от maksmkv

Сможете помочь?

Понять бы что нужно и в чём помочь.(

@krapotkin · 29.06.2015, 05:59

помочь посчитать байты, основываясь на выделенных ячейках...

@maksmkv · 30.06.2015, 13:56 **[ТС]**

Да вы правы. У меня есть ячейки размером 8х8 - если ячейка выделена 10000000, если 2 -выделены 11000000 и т.д. и перевести это все в HEX в итоге должно быть так - выделены в строке все 8 ячеек 11111111 = 0xFF

@krapotkin · 01.07.2015, 10:19

это называется биты ))))
вот процедура установки, снятия бита в массиве A
index - номер бита
value - 0 или 1
a - массив байтов

Delphi

procedure SetBit(index, value:integer; var a:array of byte);
var i,n:integer;
  mask:byte;
begin
  i:=index div 8;   
  n:=index mod 8;
  mask := 1 shl n;
  if value =0 then
  begin
    mask := 255-mask;
    a[i]:=a[i] and (mask);
  end
  else
     a[i] := a[i] or mask;
end;

@maksmkv · 05.07.2015, 15:28 **[ТС]**

Вот, что у меня получилось: Проект.zip помогите реализовать дальше такое:

Например: Как только в 1-м stringgrid выделена ячейка (1,1) - выделить в Stringgrid2 ячейку (1,1) и соотвественно в StringGrid3 тоже выделить ячейку (1,1), а в memo записать значение например вот так

0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40,

@maksmkv 3 / 3 / 1 Регистрация: 29.08.2012 Сообщений: 306
		1
	Stringgrid и массив байт 29.06.2015, 00:15. Показов 875. Ответов 5 Метки нет (Все метки) Создал новую тему, т.к. не нашел решения. Суть есть StringGrid'ы 8x8. Хочу вручную выделять ячейки и основываясь на выделенных ячейках считать байты. Все это буду делать по-кадрово (эффекты для LED куба). Должно получиться на выходе так: 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, //block 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, /Все заполнено 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, /1 строка пустая 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, / 2 строки пустые 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF. и т.д. Сможете помочь? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	29.06.2015, 01:02	2
	Сообщение от maksmkv Сможете помочь? Понять бы что нужно и в чём помочь.( 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	29.06.2015, 05:59	3
	помочь посчитать байты, основываясь на выделенных ячейках... 0

@maksmkv 3 / 3 / 1 Регистрация: 29.08.2012 Сообщений: 306
	30.06.2015, 13:56 [ТС]	4
	Да вы правы. У меня есть ячейки размером 8х8 - если ячейка выделена 10000000, если 2 -выделены 11000000 и т.д. и перевести это все в HEX в итоге должно быть так - выделены в строке все 8 ячеек 11111111 = 0xFF 0

@maksmkv 3 / 3 / 1 Регистрация: 29.08.2012 Сообщений: 306
	05.07.2015, 15:28 [ТС]	6
	Вот, что у меня получилось: Проект.zip помогите реализовать дальше такое: Например: Как только в 1-м stringgrid выделена ячейка (1,1) - выделить в Stringgrid2 ячейку (1,1) и соотвественно в StringGrid3 тоже выделить ячейку (1,1), а в memo записать значение например вот так 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0