forum.boolean.name - Помощь новичку

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Помощь новичку (http://forum.boolean.name/showthread.php?t=9545)

Ответ: Помощь новичку

Попробуй увеличить задержку до 200, а так непонятно, в чем дело.

Ответ: Помощь новичку

непомогло...в ємуляторе все нормально, а в мобиле не хочет...

вот полный код программы:

PHP код:


		
			
program Raschet;

var 

 a1, a2, a3, b1, b2, b3, c1, c2, c3:integer;

 a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : string;

 a1o, a2o, a3o, b1o, b2o, b3o, c1o, c2o, c3o, X:real;

  cmdNext, cmdexit : command;

 begin 

 showForm;

 a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);

 a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);

 a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);

 b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);

 b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);

 b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);

 c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);

 c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);

 c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); 

 cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);

 repeat delay(200);

 until GetClickedCommand = cmdNext; 



 a1i:=FormGetText(a1);

 a2i:=FormGetText(a2);

 a3i:=FormGetText(a3);

 b1i:=FormGetText(b1);

 b2i:=FormGetText(b2);

 b3i:=FormGetText(b3);

 c1i:=FormGetText(c1);

 c2i:=FormGetText(c2);

 c3i:=FormGetText(c3);

 

 a1o:=StringToInteger(a1i);

 a2o:=StringToInteger(a2i);

 a3o:=StringToInteger(a3i);

 b1o:=StringToInteger(b1i);

 b2o:=StringToInteger(b2i);

 b3o:=StringToInteger(b3i);

 c1o:=StringToInteger(c1i);

 c2o:=StringToInteger(c2i);

 c3o:=StringToInteger(c3i);



 X:=a1o*b2o*c3o+a2o*b3o*c1o+a3o*b1o*c2o-a3o*b2o*c1o-a2o*b1o*c3o-a1o*b3o*c2o;

  

 ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);

 cmdExit := CreateCommand('Exit', CM_EXIT, 1);

 AddCommand(cmdExit);

 repeat delay(100);

 until GetClickedCommand = cmdExit;

 end.

мож что есть неправильное, и вобще из-за чего это может быть?

Ответ: Помощь новичку

Отлавливай, на какой строке ошибка. Может ты не все поля заполнил.
Или какой-нибудь дикий вариант возможен - может clearform не хватает перед текстбоксом или ещё какой замороки под ту реализацию явы, что в твоём телефоне.

Ответ: Помощь новичку

Всё проще. У showtextbox надо поставить TF_ANY

Ответ: Помощь новичку

так дело в том, что оно работало, и я ничего не менял только добавил FormGetText и StringToInteger...
может быть кто-то может попробовать на своем телефоне?? =)

Ответ: Помощь новичку

УХУУ!!! =) все работает! всем спасибо))

кстати может кому пригодиться))
кто не понял программа вічисляет значение детерминанта)

Ответ: Помощь новичку

Zipper

Ответ: Помощь новичку

Zipper
Мой fncalc тебе в помощь.
http://forum.boolean.name/showthread.php?t=2930
http://frolov.net/fncalc/

Ответ: Помощь новичку

Ребят нужна помощь...тему создать несмог отдельную вот и пишу сюда...проблема такова:в первый же день изучения паскаля написал проигрыватель на тел...все работает но только может вылететь в любой момент...че за фигня?вот исходник http://upwap.ru/603712 помогите плз

Ответ: Помощь новичку

Как сделать так чтобы drawtext выводила русские буквы из файла, если в программе запишу drawtext('ввввывыв',0,0) то всё выводится, а если из файла строку считаю тов место русских квадратики.

Ответ: Помощь новичку

Цитата:

Сообщение от GanGSISoft (Сообщение 122450)

Нужно делать перекодировку. Уже не однократно обсуждалось http://forum.boolean.name/showthread.php?t=8201
http://forum.boolean.name/showthread.php?t=6103