Single to 2 Word

[BDA]

hexor_boo, да, вроде можно и без packed в данном случае, но тогда никто не узнает про это ключевое слово

[northener]

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

А в этом примере - нужно "packed record" или достаточно просто "record", как там написано?

В примере BDA, который просто показывает как использовать вариантную запись в Паскале/Дельфи служебное слово packed не нужно. Но для кода ТС оно нужно. Почему нужно, долго объяснять.

[BDA]

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

Почему нужно, долго объяснять.

Намекните, все-таки, почему нужно. Вроде все поля и так выровнены и не требуются байты выравнивания.

[northener]

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

Намекните, все-таки, почему нужно. Вроде все поля и так выровнены и не требуются байты выравнивания.

А что такое "байты выравнивания"?
Почему для ТС нужен packed. По его словам он получает данные по СОМ-порту. Ясен пень от некоей внешней железяки на микропроцессоре. А микропроцессоры не знают и не хотят знать про какое-то там выравнивание. У них слишком мало памяти, чтобы ещё тратить её на выравнивание.

[digitalis]

Микроконтроллер тут не при чём. Обмен идёт пакетами, а это - байтовый массив. И всё. А уж принимающая сторона (комп) пакет рассовывает по переменным, определяемым протоколом. Поэтому выравнивание - только на принимающей стороне.
Кстати, выравнивание, хоть и в небольшой степени, в МК использется - по крайней мере, в знакомых мне AVR. К примеру - словная адресация флеши и байтовая - ОЗУ. Желая поместить константу во флеш, адрес поневоле делаем чётным.
Кстати, в настоящее время в периферийных устройствах микропроцессоры в чистом виде уже не используются - на смену пришли их младшие братья: микроконтроллеры. Это был промежуточный этап.
-----------------
Мало памяти... 192k это много или мало, а если мало, то для кого? И это ещё не топовая модель. А нормальный МК сейчас легко уделывает какой-нибудь Пентиум 90-х годов.

[northener]

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

Микроконтроллер тут не при чём. Обмен идёт пакетами, а это - байтовый массив. И всё. А уж принимающая сторона (комп) пакет рассовывает по переменным, определяемым протоколом. Поэтому выравнивание - только на принимающей стороне.

А зачем что-то рассовывать на принимающей стороне, если при packed всё само собой ляжет туда куда надо?

[northener]

Вот освободился от повседневной текучки.

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

Микроконтроллер тут не при чём. Обмен идёт пакетами, а это - байтовый массив. И всё.

Можете расшифровать ваши утверждения?
О каких пакетах идёт речь? Не путаете ли вы работу с СОМ-портом с работой с другими последовательными интерфейсами?

[digitalis]

Я не вижу принципиальной разницы между работой с СОМ-портом (хорошо мне знакомой) с работой с другими последовательными интерфейсами. В любом случае это - последовательность байт, ну или битовая последовательность фиксированной длины, и что-то там выравнивать на линии связи не приходится.

если при packed всё само собой ляжет туда куда надо

Ну так это - минимальный способ рассовывания: всё уже на месте, дополнительных телодвижений не требуется. Это если структура передаваемых данных в соответствии с протоколом всегда одна и та же.
Напримр: <старт><адрес - 2 байта><команда - 2 байта><float - 4 байта><fixed - 2 байта>...<CRC-2 байта> . Мы не знаем, так ли это у ТС, но в общем случае чаще встречаются пакеты переменной структуры. И хорошо, если они у нас всегда нормально улягутся на единственный packed record.
Но это уже сугубо абстрактный разговор, ТСа packed record вполне удовлетворил, я думаю.

[northener]

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

И хорошо, если они у нас всегда нормально улягутся на единственный packed record.

Ну у меня лично они укладывались. Хотя все "пакеты" были разной структуры.
Вот например из моего раннего:

  TReplyRec = packed record
    RecLen, MAddr, MType, RecvType, CmdRes : Byte;
    EvCount : Word;
    DStt2 : Byte;
    DState : TDStates;
    OutReg : TOutReg;
    case Integer of       //Проверка Cmd
      cmRdNK : (AllKeys, Keys0, Keys1: Word);
      cmRdK : (KCode: array[0..7] of Byte);
      cmGetVer : (VerLen: Byte; Vers: array[0..50] of Char);
      cmGTime : (Sek, Min, Hr, DoW, Dy, Mth, Yr: Byte);
      cmGetCfg : (LenCFG: Byte; LT0: Byte; DT0: Word; fCFG: TCfgs;
                  LT1: Byte; DT1: Word; NCards, TmCards: Byte);
      cmRdDates : (Hlds: DsData);
      cmRdTZones : (TZs: TimeZones);
      cmRdHum : (Hums: Byte);
      cmGetLLog : (LLog: Word);
      cmKeyLog : (EvArray: TEvArray);
  end;