Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.01.2009, 21:26
ivannikov ivannikov вне форума
Прохожий
 
Регистрация: 28.01.2009
Сообщения: 5
Репутация: 10
По умолчанию Edit & тысяча

Приветствую
понимаю что вопрос тревиальный и все подобное
но заклинило на таком моменте
?"на форме есть компонент Edit
в него вводятся числа
если число меньше 1000 воспринимает на ура
а если 1 000
выбивает прогруму при считывании функции inttostr
пишет мол у вас там текст а не интеджер"?
подскажите как исправить сию проблему
в настройках компонента я что то не нашел
неужели код прописывать на события
потому как я понимаю он там видит пробел и считает содержимое текстом
Ответить с цитированием
  #2  
Старый 28.01.2009, 22:00
ZZZRF413 ZZZRF413 вне форума
Прохожий
 
Регистрация: 16.10.2008
Сообщения: 38
Репутация: 10
По умолчанию

Цитата:
как я понимаю он там видит пробел и считает содержимое текстом
Правильно понимаете. Пишите код обработки вводимых данных.
Ответить с цитированием
  #3  
Старый 28.01.2009, 22:07
ivannikov ivannikov вне форума
Прохожий
 
Регистрация: 28.01.2009
Сообщения: 5
Репутация: 10
По умолчанию

ох хо хо
понял спасибо за ответ))
Ответить с цитированием
  #4  
Старый 28.01.2009, 23:37
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

самый простой способ:

Код:
var
str: string;
d: integer;
i: integer;

begin
str:= '';
for i:= 0 to Length(Edit1.text) do
if Edit1.text[i] in ['0'..'9'] then
str := str+edit1.text[i];
d := strtoint(str);
end;
Ответить с цитированием
  #5  
Старый 28.01.2009, 23:53
ivannikov ivannikov вне форума
Прохожий
 
Регистрация: 28.01.2009
Сообщения: 5
Репутация: 10
По умолчанию

вот этого и надо было спасибо огромное
Ответить с цитированием
  #6  
Старый 29.01.2009, 00:51
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

тут есть минус в том что даже если введешь:

jwhdfb23y89r7rj

то он выдаст число 23897. С одной стороны плюс с другой минус.. но я не думаю что кому-то это надо будет если будет относиться к твоей программе всерьез

Ввод в поле обрабатывается например в KeyPress (для ввода только цифр(ы) например и пробела(ов)).
Ответить с цитированием
  #7  
Старый 01.02.2009, 15:36
ivannikov ivannikov вне форума
Прохожий
 
Регистрация: 28.01.2009
Сообщения: 5
Репутация: 10
По умолчанию

Спасибо я прописал код в теле программы при считывании с этого едита все ровно работает))
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter