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

Это что ли?

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

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


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