работа с реестром WriteInteger

[__@cmd@__]

дело такое есть 2 RadioButton.Group1 и RadioButton.Group2
Цель записать в один ключи реестра 2 значения причем так что бы 1ым значепнием было RadioGroup1.ItemIndex а другим RadioGroup2.ItemIndex

Сначала писал
Writeinteger('DefaultColor',RadioGr oup1.ItemIndex + RadioGroup1.ItemIndex);

НО он их просто плючует=(((
пишу and вообще ничего не делает как сделать?

[Terran]

Если хотите записать в один ключ, то можете сделать так:

WriteInteger('DefaultColor1',RadioGroup1.ItemIndex);
WriteInteger('DefaultColor2',RadioGroup2.ItemIndex);

А если в один параметр, то вам надо смотреть в сторону мультистроковых параметров:
http://www.programmersforum.ru/archi...php/t-180.html

[__@cmd@__]

мне нужно изменить значение
а в таком режиме он их очищает при новой записи=((

[Terran]

Вы перезаписывайте сам параметр, и меняйте значение. Параметр останется тем же, а значение поменяется.
К примеру:

WriteInteger('DefaultColor1',1);
...
WriteInteger('DefaultColor1',2);

[Altera]

Сообщение от __@cmd@__

дело такое есть 2 RadioButton.Group1 и RadioButton.Group2
Цель записать в один ключи реестра 2 значения причем так что бы 1ым значепнием было RadioGroup1.ItemIndex а другим RadioGroup2.ItemIndex

Сначала писал
Writeinteger('DefaultColor',RadioGr oup1.ItemIndex + RadioGroup1.ItemIndex);

НО он их просто плючует=(((
пишу and вообще ничего не делает как сделать?

попробуй так:

Writeinteger('DefaultColor',byte(RadioGroup1.ItemIndex) shl 8 + byte(RadioGroup1.ItemIndex) RadioGroup2.ItemIndex);

а читать будешь так:

var
value: word;
begin
    ...
   value := regFile.readIntege(.......);
   RadioGroup1.ItemIndex := value shr 8;
   RadioGroup2.ItemIndex := byte(value);
    ...

удачи

[__@cmd@__]

Writeinteger('DefaultColor',byte(RadioGroup1.ItemIndex) shl 8 + byte(RadioGroup1.ItemIndex) RadioGroup2.ItemIndex);

В конце где RadioGroup2.ItemIndex) выдает ошибку [DCC Error] Unit1.pas(250): E2029 ')' expected but identifier 'RadioGroup2' found

не понял в чем прикол

[Altera]

Сообщение от __@cmd@__

Writeinteger('DefaultColor',byte(RadioGroup1.ItemIndex) shl 8 + byte(RadioGroup1.ItemIndex) RadioGroup2.ItemIndex);

В конце где RadioGroup2.ItemIndex) выдает ошибку [DCC Error] Unit1.pas(250): E2029 ')' expected but identifier 'RadioGroup2' found

не понял в чем прикол

Ну в скобки возми

Writeinteger('DefaultColor',(byte(RadioGroup1.ItemIndex) shl 8) + byte(RadioGroup1.ItemIndex) RadioGroup2.ItemIndex);

[__@cmd@__]

я пробовал по ражном он походу его вообще не призщнает может так писать нельзя?
я уже присвоел значение переменной и вот так попробывал

Writeinteger('DefaultColor',(byte(RadioGroup1.ItemIndex) shl 8) + byte(RadioGroup1.ItemIndex) a);

все равно ошипка=((

[Neeter]

Может вы + пропустили:

Writeinteger('DefaultColor',byte(RadioGroup1.ItemIndex) shl 8 + byte(RadioGroup1.ItemIndex) + RadioGroup2.ItemIndex);

[__@cmd@__]

вот так работает

Writeinteger('DefaultColor',(byte(RadioGroup1.ItemIndex) shl 8) + byte(RadioGroup2.ItemIndex) );

только между двумя числами 0 лишний=(( как убрать подскажите?