Что за магия при записи в поле Paradox Byte? По этому поводу в документации ничего не сказано.
Есть 2 пути получить доступ к данным в TBytesField.
procedure SetCheckBoxStates; var CBStates: array[1..13] of Byte; begin CBStateField.GetData(CBStates); { Здесь обрабатываем данные... } end; |
Для записи значений вы должны использовать SetData.
procedure SetCheckBoxStates; var CBStates: Variant; begin CBStates := CBStateField.Value; { Здесь обрабатываем данные... } end; |
Первый метод, вероятно, для вас будет легче, поскольку вы сразу докапываетесь до уровня байт. Запись данных также получится сложнее, поскольку вам нужно будет работать с variant-методами типа VarArrayCreate и др.
- Mark Edington [001018]