Работа с dword,реестр.

[bikk]

Необходимо увеличить значение при клике на 1,то есть при запуске файл Dword получает значение 1,а при клике уже надо чтобы было 2,как это сделать помогите!

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_Current_User;
Reg.OpenKey('\Software\Oop',true);
Reg.WriteInteger('Run',1);
end;

[spirit-ua]

поставить 2

или нужно сделать увеличение на единицу при каждом клике?

[s-andriano]

inc(n);

где n - то число, которое нужно увеличить.

[bikk]

Сообщение от spirit-ua

поставить 2

или нужно сделать увеличение на единицу при каждом клике?

Да именно при каждом клике надо +1 к текущему значению.

[spirit-ua]

Сообщение от bikk

Да именно при каждом клике надо +1 к текущему значению.

тогда пост от s-andriano

1. Объявить глобальную переменную "n" (integer)
2. Записать в нее необходимое значение (НЕ в событии кнопки "Button1Click")
3. В событии кнопки "Button1Click"

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(n);
Reg := TRegistry.Create;
Reg.RootKey := HKEY_Current_User;
Reg.OpenKey('\Software\Oop',true);
Reg.WriteInteger('Run',n);
end;

[bikk]

Спасибо помогло,еще один вопрос,при новом запуске программы она опять начинает считать с 1,а как сделать чтобы при новом запуске проги она считала дальше с того числа на котором остановилась ???

[s-andriano]

Сообщение от bikk

Спасибо помогло,еще один вопрос,при новом запуске программы она опять начинает считать с 1,а как сделать чтобы при новом запуске проги она считала дальше с того числа на котором остановилась ???

Очевидно, это значение нужно по окончании работы программы сохранять, а в начале работы - считывать.

[bikk]

Сообщение от s-andriano

Очевидно, это значение нужно по окончании работы программы сохранять, а в начале работы - считывать.

Спасибо за помощь, разобрался.

[s-andriano]

Как вариант - пересохранять при каждом нажатии на кнопку.
Тогда Вы будете обезопашены в случае аварийного завершения программы, а также в случае одновременного запуска нескольких экземпляров программы.