Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Java программирование > Java Мобильная разработка (Android)
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.08.2012, 20:40   #1
Artem_Kokos
Форумчанин
 
Регистрация: 28.02.2011
Сообщений: 122
Вопрос MidletPascal - Ожидание нажатия команды

Чтобы поэкспериментировать с формами написал такой вот проект.

Код:
Program Calc;

var
n1,n2:integer; 
rez:string; 
//******************************************************************************
function calculator(num1, num2:integer; op: string): integer;
begin
if op = '+' then calculator := num1 + num2; 
if op = '-' then calculator := num1 - num2; 
if op = '/' then calculator := num1 / num2; 
if op = '*' then calculator := num1 * num2; 
end;
//******************************************************************************
procedure start;
var num1f, num2f, opf : integer; 
ok: command; 
begin

ShowForm;
ok:=createCommand('Calc',CM_OK,1); 
num1f:=formAddTextField('Enter first value','',20,TF_NUMERIC); 
num2f:=formAddTextField('Enter second value','',20,TF_NUMERIC);
	opf:=formAddTextField('Operation','',1,TF_ANY); 
addCommand(ok); 
delay(500); 

repeat until getClickedCommand = ok; //Полагаю здесь что-то не работает

n1:=StringToInteger(formGetText(num1f)); 
n2:=StringToInteger(formGetText(num2f));
rez:=formGetText(opf); 
if rez = '#' then halt;

ShowAlert('Calculating','Answer: '+calculator(n1,n2,rez),LoadImage('/icon.png'),ALERT_INFO); 
playAlertSound;
delay(3000); 
clearForm; 
start; 
end;
//******************************************************************************
begin
start;
end.
В общем при запуске в телефоне и эмуляторе не возникает ошибок, но команда ok на нажатие по ней никак не реагирует. И это не первый у меня случай, когда не работает ожидание нажатия. В общем сам не разобрался, мож кто пояснит?

Добавил:

Сделал проверку, проблема не в этой части. А там, где должно вызываться сообщение с ответом.
Повторенье - мать ученья. И прибежище для лентяев.

Последний раз редактировалось Artem_Kokos; 16.08.2012 в 22:29. Причина: Чуток разобрался
Artem_Kokos вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ожидание нажатия кнопки Manya Visual C++ 5 01.08.2012 18:52
Воспроизведение звука и одновременное ожидание нажатия клавиши. NWR Visual C++ 1 07.09.2011 16:10
Ожидание нажатия любой клавиши в Assembler HostileZeth Помощь студентам 2 09.12.2010 20:48
Ожидание нажатия клавиши blinkapec Win Api 6 24.11.2010 22:06
Ожидание нажатия клавиши shurik_7866 Общие вопросы Delphi 2 25.04.2010 19:53