Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сумма Edit и Label 
V
    Опции темы
Bobrina
  Дата 7.4.2009, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 26.1.2009
Где: Москва

Репутация: нет
Всего: нет
Есть Edit и Label. При нажатии на кнопку, к значению label прибавляется Edit. В Edite пишутся только цифры. Вопрос таков: можно ли сделать так, чтобы вводимые в Edit данные были Integer а не String?
Или как ещё можно сложить и вывести в Label цифры?
Пробовал так:
Код

Label3.Caption:=IntToStr((StrToInt(Label3.Caption)+StrToInt(Edit1.text))

Но выдаёт ошибку.
Помогите пожалуйста.
PM MAIL ICQ   Вверх
mopsa
Дата 7.4.2009, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 11.1.2009
Где: Екатеринбург/Асбе ст

Репутация: нет
Всего: 1
тупо:
Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ( key in ['1','2','3','4','5','6','7','8','9','0']) then  key:=chr(0);
end;
PM MAIL   Вверх
Bobrina
Дата 7.4.2009, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 26.1.2009
Где: Москва

Репутация: нет
Всего: нет
В Edit вводится только цифры
Код

procedure TForm1.EditSummKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then Key:= #0;
end;

Мне нужно суммировать цифровое значение Label и Edit и записать это в Label.Caption.
PM MAIL ICQ   Вверх
Kbl4AH
Дата 7.4.2009, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15
Цитата(Bobrina @  7.4.2009,  20:35 Найти цитируемый пост)
Но выдаёт ошибку.

какую?
PM MAIL ICQ   Вверх
Данкинг
Дата 7.4.2009, 20:01 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Bobrina @  7.4.2009,  20:35 Найти цитируемый пост)
Но выдаёт ошибку.

Посчитай количество открывающих и закрывающих скобочек. Подумай. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Bobrina
Дата 7.4.2009, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 26.1.2009
Где: Москва

Репутация: нет
Всего: нет
Всё заработало, надо было поставить начальное значение Label>caption:=0.
Извините за глупые вопросы. smile 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0430 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.