Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Сумма Edit и Label

Автор: Bobrina 7.4.2009, 19:35

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

Код


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

Но выдаёт ошибку.
Помогите пожалуйста.

Автор: mopsa 7.4.2009, 19:39

тупо:

Код


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;

Автор: Bobrina 7.4.2009, 19:45

В 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.

Автор: Kbl4AH 7.4.2009, 19:55

Цитата(Bobrina @ 7.4.2009, 20:35

)

Но выдаёт ошибку.

какую?

Автор: Данкинг 7.4.2009, 20:01

Цитата(Bobrina @ 7.4.2009, 20:35

)

Но выдаёт ошибку.

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

Автор: Bobrina 7.4.2009, 20:13

Всё заработало, надо было поставить начальное значение Label>caption:=0.
Извините за глупые вопросы. smile