Как мне сохранить свойство в ini-файле?

← →
Dmitry_04 (2005-01-17 19:36) [0]

Как мне сохранить свойство в ini-файле? Т.е. свойство объекта имеет вид:
TRangeState = (rsRpl, rsComRpl, rssasm1, rssasm2, rssasm3, rsAsm, rsComAsm2, rsComAsm1);
Принимает одно из значений... Как бы мне сохранить это значение?

← →
Dmitry_04 (2005-01-17 19:36) [1]

Сохранить надо в ini-файле...

← →
begin...end © (2005-01-17 19:39) [2]

> Dmitry_04 (17.01.05 19:36)

Сохраняйте в ini-файл "порядковый номер" значения, т.е. Ord(...), с помощью WriteInteger.

← →
Dmitry_04 (2005-01-17 19:40) [3]

можно конечно так:
with TIniFile.Create(...) do try if ...=rsRpl then WriteString(..., ..., "rsRpl") finally Destroy; end;

Но мне кажется есть способ получше...

← →
Zeqfreed © (2005-01-17 19:40) [4]

Сохранять как Integer; ещё можно вот так написать, для полной уверенности:

TRangeState = (rsRpl = 0, rsComRpl = 1, rssasm1 = 2, rssasm2 = 3, rssasm3 = 4, rsAsm = 5, rsComAsm2 = 6, rsComAsm1 = 7);

← →
Dmitry_04 (2005-01-17 19:57) [5]

begin...end А как мне потом прочитать это? В том смысле что прочитаю я число, а как мне потом присвоить это значение свойству типа TRangeState?

> [5] Dmitry_04 (17.01.05 19:57)

var MyVar1, MyVar2: TRangeState; begin MyVar1 := ... with TIniFile.Create("...") do try // Запись WriteInteger("...", "...", Ord(MyVar1)) <-- а можно и WriteInteger("...", "...", Integer(MyVar1)) // Чтение MyVar2 := TRangeState(ReadInteger("...", "...", 0)) finally Free end end.

Как мне сохранить свойство в ini-файле? Найти похожие ветки