Помощь новичку

[ViNT]

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

[Zipper]

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

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

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. 


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

[Bruteo]

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

[Bruteo]

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

[Zipper]

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

[Zipper]

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

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

Zipper

я на листочке (или в уме) его посчитаю быстрее чем ты наберешь цифры на телефоне, так что вряд ли пригодится

[Bruteo]

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

[MoteX]

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

[GanGSISoft]

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

[GRAY_WOLF]

Сообщение от GanGSISoft

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

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