Скачать: CL | DM;

FileRead({record тип}, SizeOf({record тип}));   Найти похожие ветки 

← →
Vitalis ©   (2002-07-01 20:24) [0]

НАрод, вот кусок кода:

type
TMAIN_HEAD = record
HEAD_CRC : Word;
HEAD_TYPE : Byte;
HEAD_FLAGS : Word;
HEAD_SIZE : Word;
RESERVED1 : Word;
RESERVED2 : Cardinal;
end;
....
procedure ABC;
var Rec : TMAIN_HEAD;
begin
FileOpen(...);
FileRead(..., Rec, SizeOf(Rec));
end;

у меня в файле, например, такие байты: 01 02 03 04 05 06 07 08 09...
Получайтся:
Rec.HEAD_CRC = 01 02;
Rec.HEAD_TYPE = 03;
Rec.HEAD_FLAGS = 05 06; // Почему пропускается 1 байт????
Rec.HEAD_SIZE = 07 08;
Дальше все идет с тем же сдвигом на 1 байт.
И еще: почему SizeOF - возвращает 16, а не 13????
Че делать????

---

← →
Volj ©   (2002-07-01 20:38) [1]

Попробуй снять галочку "aligned record fields" в Project Options|Compiler

---

← →
Vitalis ©   (2002-07-01 20:52) [2]

У меня D6 - там выбор: 1, 2, 4, 8. А зачем вообще это нужно? Для быстродействия?

---

← →
Anatoly Podgoretsky ©   (2002-07-01 20:55) [3]

Есть такое волшебное слово packed record
а так да, для скорости, жалко что 16 не хватает

---

← →
Volj ©   (2002-07-01 21:00) [4]

2Anatoly Podgoretsky:
Присоединяюсь.

2Vitalis: Ставь величину, равную минимальному размеру используемой переменной. А еще лучше, используй Packed record.

---

← →
Vitalis ©   (2002-07-01 22:59) [5]

Все, понял. Оставил 8 а свои записи поставил packed record. Thx 2 all

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c