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

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...
Это принцип...
Ну а дальше всё донельзя просто!!!!

---

← →
Poirot ©   (2002-09-07 17:33) [4]

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;

---

← →
McSimm ©   (2002-09-08 12:11) [5]

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

---

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

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



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