Вниз  MIDlet Pascal
- 12.07.2013 / 17:03
usb_device
  Пользователь

usb_device 
Сейчас: Offline
Решил небольшую программку написать, но столкнулся с тем что русский текст ни в какую не хочет считываться с файла. Какая должна быть кодировка у файла с русским текстом? Считываю readLine.
- 12.07.2013 / 17:51
vl@volk
  Пользователь

vl@volk 
Сейчас: Offline
utf-8
__________________
 знает толк
- 12.07.2013 / 18:10
usb_device
  Пользователь

usb_device 
Сейчас: Offline
в кемулаторе стоит utf-8, файл тоже utf-8
код типа такого
drawtext(readline(res),0,0);
выводит квадраты.
- 12.07.2013 / 18:15
usb_device
  Пользователь

usb_device 
Сейчас: Offline
нашел библиотеку resloader; попробую с ее помощью.
- 12.07.2013 / 18:17
vl@volk
  Пользователь

vl@volk 
Сейчас: Offline
readline - я так понял загружает строку из файла. в яве есть методы readUTF() и writeUTF() они у меня работали не корректно, поэтому прийдется вручную грузить что-то типа readByte или read. кстате почему на яваме не хочешь написать?
__________________
 знает толк
- 12.07.2013 / 18:20
usb_device
  Пользователь

usb_device 
Сейчас: Offline
Возможностей мидлетпаскаля хватит с головой для того что хочу написать.
- 24.08.2013 / 09:28
St@SyaN
  Пользователь

St@SyaN 
Сейчас: Offline
Как задать ограниченный тип данных? В обычном паскале мне, допустим хватило бы типа byte (0..255). В мидлетПаскале же минимальный это integer (много короче :gg:). Обычным способом создать не могу
  1. y, x,color:0..320;
[Pascal Error] newproject.mpsrc(3): E212 enumerated types are not supported in this version
есть ли какой-то другой способ?

Изменено St@SyaN (24.08 / 09:29) (всего 1 раз)
- 24.08.2013 / 11:29
usb_device
  Пользователь

usb_device 
Сейчас: Offline
есть char, может хранить целочисленное значение от 0 до 255, вроде так.
- 24.08.2013 / 15:22
St@SyaN
  Пользователь

St@SyaN 
Сейчас: Offline
usb_device, символ хранит же, не?
- 24.08.2013 / 15:43
St@SyaN
  Пользователь

St@SyaN 
Сейчас: Offline
Есть такой код:
  1. procedure painter;
  2. var temp:integer;
  3. begin
  4. for y:=0 to 319 do for x:=1 to 239 do
  5.  begin
  6.  temp:=canvas[y,240-x];
  7.  if temp=0 then setcolor(0,0,0);
  8.  if (temp>=101) and (temp<=130) then setcolor(colors[temp-100,1],colors[temp-100,2],colors[temp-100,3]);
  9.  if (temp>=201) and (temp<=230) then setcolor((colors[temp-200,1] div 3)*2,(colors[temp-200,2] div 3)*2,(colors[temp-200,3] div 3)*2);
  10.  if (temp>=301) and (temp<=330) then setcolor((colors[temp-300,1] div 2),(colors[temp-300,2] div 2),(colors[temp-300,3] div 2));
  11.  if (temp>=401) and (temp<=430) then setcolor((colors[temp-400,1] div 3),(colors[temp-400,2] div 3),(colors[temp-400,3] div 3));
  12.  if (temp>=501) and (temp<=530) then setcolor((colors[temp-500,1] div 4),(colors[temp-500,2] div 4),(colors[temp-500,3] div 4));
  13.  plot (x,y);
  14.  end;
  15. repaint;
  16. end;
Проблема вот в чем: на кемуляторе работает с 120 фпс (примерно). На телефоне этот код (именно этот) выдает 1 фпс. Что можно сделать, чтобы было хотя бы 10. Весь код и скомпилированный йар прилагается.


Прикрепленные файлы:
NewProject.jar (9.1 кб.) Скачано 131 раз
NewProject.mpsrc (5.89 кб.) Скачано 737 раз
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)