|
Основной форум Сюда все проблемы связанные с программированием. |
20.10.2009, 21:57
|
#16
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помощь новичку
Попробуй увеличить задержку до 200, а так непонятно, в чем дело.
|
(Offline)
|
|
20.10.2009, 22:35
|
#17
|
AnyKey`щик
Регистрация: 20.10.2009
Сообщений: 11
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь новичку
непомогло...в ємуляторе все нормально, а в мобиле не хочет...
вот полный код программы:
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.
мож что есть неправильное, и вобще из-за чего это может быть?
|
(Offline)
|
|
20.10.2009, 23:04
|
#18
|
ПроЭктировщик
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
|
Ответ: Помощь новичку
Отлавливай, на какой строке ошибка. Может ты не все поля заполнил.
Или какой-нибудь дикий вариант возможен - может clearform не хватает перед текстбоксом или ещё какой замороки под ту реализацию явы, что в твоём телефоне.
|
(Offline)
|
|
20.10.2009, 23:07
|
#19
|
ПроЭктировщик
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
|
Ответ: Помощь новичку
Всё проще. У showtextbox надо поставить TF_ANY
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
20.10.2009, 23:08
|
#20
|
AnyKey`щик
Регистрация: 20.10.2009
Сообщений: 11
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь новичку
так дело в том, что оно работало, и я ничего не менял только добавил FormGetText и StringToInteger...
может быть кто-то может попробовать на своем телефоне?? =)
|
(Offline)
|
|
20.10.2009, 23:21
|
#21
|
AnyKey`щик
Регистрация: 20.10.2009
Сообщений: 11
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь новичку
УХУУ!!! =) все работает! всем спасибо))
кстати может кому пригодиться))
кто не понял программа вічисляет значение детерминанта)
|
(Offline)
|
|
20.10.2009, 23:27
|
#22
|
|
Ответ: Помощь новичку
Zipper
я на листочке (или в уме) его посчитаю быстрее чем ты наберешь цифры на телефоне, так что вряд ли пригодится
|
|
|
20.10.2009, 23:58
|
#23
|
ПроЭктировщик
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
|
Ответ: Помощь новичку
|
(Offline)
|
|
25.10.2009, 12:14
|
#24
|
Нуждающийся
Регистрация: 21.10.2009
Сообщений: 51
Написано 6 полезных сообщений (для 8 пользователей)
|
Ответ: Помощь новичку
Ребят нужна помощь...тему создать несмог отдельную вот и пишу сюда...проблема такова:в первый же день изучения паскаля написал проигрыватель на тел...все работает но только может вылететь в любой момент...че за фигня?вот исходник http://upwap.ru/603712 помогите плз
|
(Offline)
|
|
25.10.2009, 17:00
|
#25
|
AnyKey`щик
Регистрация: 24.10.2009
Сообщений: 8
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь новичку
Как сделать так чтобы drawtext выводила русские буквы из файла, если в программе запишу drawtext('ввввывыв',0,0) то всё выводится, а если из файла строку считаю тов место русских квадратики.
|
(Offline)
|
|
25.10.2009, 23:22
|
#26
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: Помощь новичку
Сообщение от GanGSISoft
Как сделать так чтобы drawtext выводила русские буквы из файла, если в программе запишу drawtext('ввввывыв',0,0) то всё выводится, а если из файла строку считаю тов место русских квадратики.
|
Нужно делать перекодировку. Уже не однократно обсуждалось http://forum.boolean.name/showthread.php?t=8201
http://forum.boolean.name/showthread.php?t=6103
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 11:36.
|