Можно ли сохранять/загружать из файла множества? (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).

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

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