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

Можно ли сохранять/загружать из файла множества? (set of ...)   Найти похожие ветки 

← →
Basilio ©   (2004-03-30 13:22) [0]


var F:file;
   S:set of Byte;
...
begin
...
AssignFile(F,"a.dat"); ReWrite(F);
BlockWrite(F,S,SizeOf(S));
Close(F);
...
end;


Запись должна быть размером 32 байта (я так понимаю, 32*8=256 - т.е. имеем 256 бит. дельфи отмечает вхождение/невхождение соотв. битом)

Почему файл тогда получается размером 4096 байт со всяким мусором?

---

← →
pasha_golub ©   (2004-03-30 13:29) [1]

Close(F); >> CloseFile(F);

---

← →
pasha_golub ©   (2004-03-30 13:33) [2]

Хотя к делу не относится.

---

← →
ZrenBy ©   (2004-03-30 13:33) [3]

ReWrite(FromF, 1); { Record size = 1 }

The entire block transferred occupies at most Count * RecSize bytes. RecSize is the record size specified when the file was opened (or 128 if the record size was unspecified).

---

← →
TUser ©   (2004-03-30 13:36) [4]

Не знаю как с set"ами, но со строкками переменной длины делают так - сохраняют размер строки, затем сами символы. Наверное, и здесь как-то аналогочино.

---

← →
pasha_golub ©   (2004-03-30 13:36) [5]

ZrenBy ©   (30.03.04 13:33) [3]
Точно. Блин, глаза мои невидящие. :-)

---

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

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



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