ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EDIT
4 сообщений из 4, страница 1 из 1
EDIT
    #32232243
jooo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jooo
Гость
У МЕНЯ В EDIT1 ЧИСЛО 100 А В EDIT2 Я ВВОЖУ ДОПУСТИМ 1000
КАК ЗДЕЛАТЬ ЧТОБЫ ПРИ НАЖАТИИ НА BUTTON В EDIT1 ПОЛУЧАЛАСЬ СУММА А
В EDIT2 СТАЛО ПУСТО
...
Рейтинг: 0 / 0
10.08.2003, 19:23
| Ответить | Цитировать | Написать  
EDIT
    #32232254
NightSpider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NightSpider
Участник
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text) )
Edit2.Text:='';

Это что ли?

Правда еще проверки нужно поставить, что ввели действительно число и действительно целое.
...
Рейтинг: 0 / 0
10.08.2003, 19:45
| Ответить | Цитировать | Написать  
EDIT
    #32232372
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
jooo

Никак нельзя писать малыми буквами? Задрало вообще-то....
...
Рейтинг: 0 / 0
11.08.2003, 03:47
| Ответить | Цитировать | Написать  
EDIT
    #32232385
Adony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adony
Участник
Насчет проверки, поставь на KeyPress
Код: plaintext
1.
if ((Pos(Key, '0123456789')<= 0 ) and (Key<># 08 )) then key:=# 0 ;
...
Рейтинг: 0 / 0
11.08.2003, 06:12
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / EDIT
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]