VPF::Выравнивание структур в Дельфи

Лапоть

Дата 26.4.2009, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2

Вот сишный код:

Код


#pragma pack (push, 1) // устанавливаю побайтовое выравнивание
struct TMapHeader {
  header char[32];
  scale integer;
  title char[64];
  sign char;          // без побайтового - размер поля будет таким, какое выравнивание установлено по умолчанию!
  // и так далее
};
#pragma pack (pop) // восстанавливаю выравнивание по умолчанию

Структура на Дельфи

Код


  TMapHeader : record
    header : array [0..31] of char;
    scale : integer;
    title : array [0..63] of char;
    sign : char;
    // .....
  end;

Т.е., без побайтового выравнивания на Си можно наступить на хорошие грабли при чтении-записи данных на диск! Как такая проблема (если она есть) решается на Дельфи?

Альт

Дата 26.4.2009, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.8.2008

Репутация: нет
Всего: нет

такие структуры называются упакованными:

Код


  TMapHeader = packed record
    header : String[32];
    scale : integer;
    title : String[64];
    sign : char;
    // etc
  end;

Лапоть

Дата 26.4.2009, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2

Альт, спасибо!!! smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »