Sets в файл...

← →
^Sanya © (2002-09-07 14:21) [0]

Подскажите какие-нибудь общепринятые методы записи множеств в текстовый файл....
Делать для Set of [a,b,c,d,e] что-то вроде:
a=1 b=0 c=1 d=1 e=0
а потом проверять if-ами неинтересно....

Возможно, что-то типа
Set = 0110 было б повеселее, но придётся циклом пройтись при чтении....
Короче, есть что-нибудь общепринятое и более рациональное?
Заранее благодарен этому форуму за огромную помощь в решении многих проблем...

← →
Kopetr © (2002-09-07 14:42) [1]

Попробуй сохранять\читать Byte(S), S - твое множество.

← →
Юрий Федоров © (2002-09-07 14:51) [2]

Посмотри, как сделано RTTI, модуль TypInfo

← →
Poirot © (2002-09-07 17:23) [3]

Таки set of это типа 32 байта!!! каждый бит коего отвечает за соотв эламент!!!
Т.е. есть элемент, то 1 нет 0...
Это принцип...
Ну а дальше всё донельзя просто!!!!

A=set of Char; -------------- var Z:A; S:TFileStream; begin Caption:=IntToStr(SizeOf(A)); Z:=["B", "C"]; S:=TFileStream.Create("c:\sed.dat", fmCreate); S.WriteBuffer(Z, SizeOf(Z)); S.Free;

Поправка - set может иметь размер 1 байт или 32 байта.

Sets в файл... Найти похожие ветки