SpinEdit1Change и myIni.WriteInteger как совместить

[ArtGrek]

когда ввожу в ручную выдает ошибку, видимо изза того что на мгновение спинедит остаеца пустым

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    myIni.WriteInteger('section', 'index', SpinEdit1.Value);
  except end;
end;

[Пепел Феникса]

может стоит по OnExit или закрытию формы(нажатию кнопки сохранить/принять)?

[ArtGrek]

так и делал, но сеичас для программы нужно как только изменяеца сохранять
показ SlideShow и в то же время возможность редактировать, в даном случае время задержки картинки

[Человек_Борща]

попробуй делать вот такую проверку.....

procedure TForm1.SpinEdit1Change(Sender: TObject);
function Check(und:integer):integer;
begin
If und = '' then Result:=0;
end;

begin
    myIni.WriteInteger('section', 'index', Check(SpinEdit1.Value));
end;

Хз что там у тебя за допотопность, что сам компонент не делает эту CHECK
Мб просто ini не инициализирован?

[Человек_Борща]

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

procedure TForm1.SpinEdit1Change(Sender: TObject);
  function Check(it: integer): Integer;
  begin
    if VarIsEmpty(it) then
      Result := 0;
  end;
var
  a: Integer;
begin
  a := Check(SpinEdit1.Value);
end;

[ArtGrek]

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

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    myIni.WriteInteger('section', 'index', SpinEdit1.Value);
  except end;
end;

подробнее
http://programmersforum.ru/showthread.php?t=141726

[Пепел Феникса]

блин, ну так правильно, в режиме отладки то исключения всегда показываются(но нажав продолжить можно передать управление обработчику)
я просто думал вы знаете это, и у вас отключен показ исключений(или без отладки запущено)

[ArtGrek]

остался еше вопрос, не хочеца за ето создавать новую тему
етим кодом я считываю значение для SpinEdit из ini, а Default у меня его прошлое значение

SpinEdit1.Value := myIni.WriteInteger('section', 'index', SpinEdit1.Value);

так вот, если чтение не произоидет, будет ли ошибка?
тоесть что происходит раньше
обнуление значения спина, потом считывание с ини, если не считалось, присваеваеца значение по умолчанию (и думаю ошибка)
или
сперва читаеца из ini, если не считалось, береца старое значение и переприсваиваеца

[phomm]

второе, вначале считывается, если не считалось то ставится дефолтное, потом уже присваивание, собственно нормальный ход работы составных операторов.

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

я считываю

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

WriteInteger

определитесь уж, не путайте других, не все же телепаты ))

[ArtGrek]

определитесь уж, не путайте других, не все же телепаты ))

sorry
SpinEdit1.Value := myIni.ReadInteger('section', 'index', SpinEdit1.Value);

спасибо