IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> SizeOf(record), FreePascal
sheka
сообщение 18.06.2011 23:36
Сообщение #1


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +

Интересное кино:
const
  k = 20;
type
  a = record
    b: string[k];
    c: longint;
  end;

BEGIN
  writeln('k = ',k);
  writeln('Size = ',sizeof(a));
  readln;
END.

Выдает такой результат:
Running "d:\prog\pas\1.exe "
k = 19
Size = 24

Running "d:\prog\pas\1.exe "
k = 20
Size = 28


При чем когда c: longint; закомментировано, то результат правильный: размер = k+1;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
sheka
сообщение 19.06.2011 1:44
Сообщение #2


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +

Без packed размеры каждого поля подгоняются под 4/8 байт?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
sheka   SizeOf(record)   18.06.2011 23:36
IUnknown   Ничего интересного не вижу... type a = packed r...   19.06.2011 1:32
sheka   Без packed размеры каждого поля подгоняются под 4/...   19.06.2011 1:44
IUnknown   По умолчанию работает режим {$PACKRECORDS DEF...   19.06.2011 2:24

« Предыдущая тема · Теоретические вопросы · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 27.07.2025 11:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"