Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Ошибка при работе с SpinEdit

Автор: Garmahis 3.11.2005, 15:49

Код


procedure TReklam.SpinEdit3Change(Sender: TObject);
begin
Reklam.Label47.Caption:=IntToStr(Reklam.SpinEdit3.Value);
end;

Если пользователь в ручную редактируя значение SpinEdit3 удаляет полностью всё число, то выскакивает ошибка что '' не интегер. Как этого можно избежать?

Автор: EDuard 3.11.2005, 15:55

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

Код


SpinEdit3.enabled:=false;

Автор: _hunter 3.11.2005, 15:56

или в try/except засунь или проверяй пустая ли там строка

Автор: Garmahis 3.11.2005, 16:15

Всё большое спасибо! Сделал!

Автор: Неопытный 14.3.2007, 14:59

Аналогичная проблема.
Хоть бы пример показали

if inttostr(form4.SpinEdit1.Value)='' then
Ошибка It is not integer value//
if form4.SpinEdit1.Value='' then
Несоответствие типов.
Как быть то, объсните подробней пожалуйста!?

Автор: VICTAR 14.3.2007, 15:10

Код


procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    Label1.Caption:=IntToStr(SpinEdit1.Value);
  except
  end;
end;

Автор: Snowy 14.3.2007, 15:30

Код


procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if SpinEdit1.Text = '' then SpinEdit1.Text := '0';
  Caption := SpinEdit1.Text;
end;

Автор: Неопытный 14.3.2007, 15:58

Спасибо!