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

Delphi Sources



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

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.01.2012, 17:04
wasja_1 wasja_1 вне форума
Прохожий
 
Регистрация: 04.03.2011
Сообщения: 3
Репутация: 10
По умолчанию Выборка данных

Есть форма с 6 Edit. В 1, 2 и 4 Edit заносятся числа. 3 Edit суммирует 1 и 2. 6Edit подсчитывает разность между 4 и 3, по полученным результатам выводятся определенные числа в 5 Edit. Код обрабатывается кнопкой.
Сам код:
edit3.Text:= IntToStr(StrToInt(edit1.Text)+StrToInt(edit2.Text) );
edit6.Text:= IntToStr(StrToInt(edit4.Text)-StrToInt(edit3.Text));
if (edit6.Text)>='50' then edit5.Text:='5' else
if ((edit6.Text)<'50') and ((edit6.Text)>='30') then edit5.Text:='4' else
if ((edit6.Text)<'20') and ((edit6.Text)>='10') then edit5.Text:='3' else
if ((edit6.Text)<'10') and ((edit6.Text)>'2') then edit5.Text:='2' else
if (edit6.Text)<='2' then (edit5.Text:='1');
А теперь проблема - если в поле Edit6 получается значение более 100 то в Edit5 значение меняется с 5 на меньшее. Можно ли здесь что-то подправить или решение в принципе не правильное? Количество Edit и их функционал менять нельзя.
  #2  
Старый 20.01.2012, 17:48
wasja_1 wasja_1 вне форума
Прохожий
 
Регистрация: 04.03.2011
Сообщения: 3
Репутация: 10
По умолчанию

вопрос снят.
Закрытая тема


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter