Имеем определение типа данных "Запись" следующего вида
TdbfField = record
FieldName :array[1..11] of char; { Name of this record }
FieldType :char; { type of record - C,N,D,L,etc. }
fld_addr :longint; { not used }
Width :byte; { total field width of this record }
Decimals :byte; { number of digits to right of decimal }
MultiUser :smallint; { reserved for multi user }
WorkAreaID :byte; { Work area ID }
MUser :smallint; { reserved for multi_user }
SetFields :byte; { SET_FIELDS flag }
Reserved :array[1..4] of byte; { 8 bytes reserved }
end; { record starts }
{оригинальный кусок из исходника}
Казалось бы все просто, но ... далее следует объявление переменной:
var Fld: TdbfField;
Тоже ничего особенного. Но вот непонятная для меня вещь:
выражение SizeOf(Fld) дает значение 32 байта, а выражение
SizeOf(Fld.FieldName)+SizeOf(Fld.FieldType)+SizeOf(Fld.fld_addr)+SizeOf(Fld.Width)
+SizeOf(Fld.Decimals)+SizeOf(Fld.MultiUser)++SizeOf(Fld.WorkAreaID)+SizeOf(Fld.MUser)
+SizeOf(Fld.SetFields)+SizeOf(Fld.Reserved) дает значение 28. Тот же
результат можно получить просуммировав размеры значений полей записи:
11+1+4+1+1+2+1+2+1+4.
Как так ? Вот собственно вопрос. Как ни странно компонент работает из этого исходника на "живой" форме. Ошибок при работе не возникает, но ,еще раз повторюсь, DBF файл из VFP 5.0 отображает (как я понял) по DOS-кодировке.