Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка при работе с SpinEdit 
:(
    Опции темы
Garmahis
Дата 3.11.2005, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4
Код

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


Если пользователь в ручную редактируя значение SpinEdit3 удаляет полностью всё число, то выскакивает ошибка что '' не интегер. Как этого можно избежать?
PM   Вверх
EDuard
Дата 3.11.2005, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 331
Регистрация: 1.8.2005
Где: Синее нигде

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

SpinEdit3.enabled:=false;
smile


--------------------
PM MAIL WWW ICQ   Вверх
_hunter
Дата 3.11.2005, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
или в try/except засунь или проверяй пустая ли там строка


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Garmahis
Дата 3.11.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4
Всё большое спасибо! Сделал!
PM   Вверх
Неопытный
Дата 14.3.2007, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 21.11.2006

Репутация: нет
Всего: нет
Аналогичная проблема.
Хоть бы пример показали

if inttostr(form4.SpinEdit1.Value)='' then 
Ошибка It is not integer value//
if form4.SpinEdit1.Value='' then
Несоответствие типов.
Как быть то, объсните подробней пожалуйста!? 
PM MAIL   Вверх
VICTAR
Дата 14.3.2007, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Код

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    Label1.Caption:=IntToStr(SpinEdit1.Value);
  except
  end;
end;
PM MAIL   Вверх
Snowy
Дата 14.3.2007, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if SpinEdit1.Text = '' then SpinEdit1.Text := '0';
  Caption := SpinEdit1.Text;
end;
PM MAIL   Вверх
Неопытный
Дата 14.3.2007, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 21.11.2006

Репутация: нет
Всего: нет
Спасибо!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0481 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.