Borland Delphi 7 - Страница 2

AlexZir · 23.12.2009, 13:01

Цитата:

Сообщение от WOLF007

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

в обработчике нажатия кнопки "+" пропишите:

Код:

old_chislo:=strtofloat(edit1.text);
edit1.text:='';
flag_op:=1;

в обработчике нажатия "=" пропишите:

Код:

case flag_op of
1: res:=old_chislo+strtofloat(edit1.text);
2: ...{перечисление операций}
else res:=0
end;
edit1.text:=floattostr(res);

WOLF007 · 23.12.2009, 22:50

спасибо

Nemezido · 23.12.2009, 23:13

Вопрос не много не в тему но все же...Можете подсказать где найти самоучители по 7 делфи?желательно в формате tхt?

MrSTEP · 24.12.2009, 00:06

У меня есть самоучители в разных форматах. Сам, когда осваивал делфи, пользовался одним, в формате html. Могу выложить сюда. Но вопрос: вы знаете язык Паскаль, и вообще программировать умеете? От этого зависит, что я выложу

WOLF007 · 09.01.2010, 19:35

как реализовать "," и "+/-"? приведите пример плиз.

AlexZir · 09.01.2010, 20:05

Переменная x какого типа? Должна быть real!

WOLF007 · 09.01.2010, 21:31

помогите кто нить.

AlexZir · 09.01.2010, 21:40

свои исходники выложите

в обработчике запятой нужно проверить все выражение на наличие разделителя, если он отсутствует, тогда выполняете Edit1.text:=Edit1.text+'.';

WOLF007 · 09.01.2010, 21:46

спс. а положительный и отрицательный знак так же реализовывается?

MrSTEP · 09.01.2010, 21:51

Проще всего сделать так: edit.text:=floattostr(strtofloat(edit.text)*(-1));

09.01.2010, 19:35	#15 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	как реализовать "," и "+/-"? приведите пример плиз. Последний раз редактировалось WOLF007; 09.01.2010 в 20:06

09.01.2010, 20:05	#16 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Переменная x какого типа? Должна быть real! __________________ Убить всех человеков!

09.01.2010, 21:40	#18 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	свои исходники выложите в обработчике запятой нужно проверить все выражение на наличие разделителя, если он отсутствует, тогда выполняете Edit1.text:=Edit1.text+'.'; __________________ Убить всех человеков!

23.12.2009, 13:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме люди обсуждали что то схожее, посмотрите DELPHI Помощь с Delphi

23.12.2009, 22:50	#12 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	спасибо

23.12.2009, 23:13	#13 (permalink)
Nemezido Новичок Регистрация: 08.12.2008 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вопрос не много не в тему но все же...Можете подсказать где найти самоучители по 7 делфи?желательно в формате tхt?

24.12.2009, 00:06	#14 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	У меня есть самоучители в разных форматах. Сам, когда осваивал делфи, пользовался одним, в формате html. Могу выложить сюда. Но вопрос: вы знаете язык Паскаль, и вообще программировать умеете? От этого зависит, что я выложу

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

09.01.2010, 21:31	#17 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	помогите кто нить.

09.01.2010, 21:46	#19 (permalink)
WOLF007 Member Регистрация: 24.02.2009 Сообщений: 806 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 563	спс. а положительный и отрицательный знак так же реализовывается?

09.01.2010, 21:51	#20 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Проще всего сделать так: edit.text:=floattostr(strtofloat(edit.text)*(-1));