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

Проблема с записью....   Найти похожие ветки 

← →
Alexdeil   (2007-02-08 11:53) [0]

Здравствуйте специалисты!

Имеется запись - заголовок из 25 байт (A - R) и массив байт (64 байта):
type
      Pak = record
        A     :byte;
        B     :byte;
        C     :byte;
        D     :byte;
        E     :word;
        F     :byte;
        G     :byte;
        K     :word;  
        L     :word;
        Lt    :longword;
        M    :word;
        Mt   :longword;
        P     :word;        
        R     :byte;  
        S     :array[1..64] of byte;
   end;
Осуществляется запись и чтение в файл только одной записи - все работает, но есть непонятные мне вопросы
- почему размер файла с одной записью больше 89 байт (25 +64 = 89) = 92 байта,
- почему при просмотре файла в Hex-редакторе поле М (тип word) представляется в виде 4-х байт, а массив S (64 байта) увеличен до 65 байт.
Запись в файл осуществляю следующим образом:
var K:integer;
begin
...........................
K:=FileCreate("proba.dat");
FileWrite(K,Pak,SizeOf(Pak));
FileClose(K);  
end;
Подскажите, что не так.

---

← →
TRUNK ©   (2007-02-08 11:56) [1]

Включи упаковку:

Pak = packed record
{.........}
end

или лучше так:

{$A-}
Pak = record
{.........}
end
{$A+}


---

← →
Alexdeil   (2007-02-08 12:05) [2]

Спасибо! Все ОК!

---

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

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



Память: 0.45 MB
Время: 0.03 c