Показать сообщение отдельно
Старый 26.07.2008, 06:55   #15
anton_obuhov
Оператор ЭВМ
 
Регистрация: 25.10.2007
Сообщений: 30
Написано одно полезное сообщение
(для 2 участников)
Сообщение Re: Калькулятор

Вопрос такого рода вот код проги
program cal;
var
SummaOP1,OP2:integer;
1POLE,2POLE:command;
begin
Showform
;
1POLe:=formaddtextfield('ВВедите первое слагаемое',20,TF_Numeric);
2POLE:=formaddtextfield('ВВедите второе слагаемое',20,TF_Numeric);
OP1:=stringtointeger(formgettext(1POLE));
OP2:=stringtointeer(formgetText(2POLE));
Summa:=OP1+OP2

end

ИЗвините если код неправелен но наишите как теперь вывести число Summa? Спасибо
(Offline)
 
Ответить с цитированием