12.07.2013 / 17:03 | |
usb_device Пользователь Сейчас: Offline
Имя: Денис Откуда: USB Регистрация: 07.01.2013
| Решил небольшую программку написать, но столкнулся с тем что русский текст ни в какую не хочет считываться с файла. Какая должна быть кодировка у файла с русским текстом? Считываю readLine.
|
12.07.2013 / 17:51 | |
vl@volk Пользователь Сейчас: Offline
Имя: Владислав Откуда: Земля Регистрация: 26.12.2012
| utf-8
__________________
знает толк |
12.07.2013 / 18:10 | |
usb_device Пользователь Сейчас: Offline
Имя: Денис Откуда: USB Регистрация: 07.01.2013
| в кемулаторе стоит utf-8, файл тоже utf-8 код типа такого drawtext(readline(res),0,0); выводит квадраты.
|
12.07.2013 / 18:15 | |
usb_device Пользователь Сейчас: Offline
Имя: Денис Откуда: USB Регистрация: 07.01.2013
| нашел библиотеку resloader; попробую с ее помощью.
|
12.07.2013 / 18:17 | |
vl@volk Пользователь Сейчас: Offline
Имя: Владислав Откуда: Земля Регистрация: 26.12.2012
| readline - я так понял загружает строку из файла. в яве есть методы readUTF() и writeUTF() они у меня работали не корректно, поэтому прийдется вручную грузить что-то типа readByte или read. кстате почему на яваме не хочешь написать?
__________________
знает толк |
12.07.2013 / 18:20 | |
usb_device Пользователь Сейчас: Offline
Имя: Денис Откуда: USB Регистрация: 07.01.2013
| Возможностей мидлетпаскаля хватит с головой для того что хочу написать.
|
24.08.2013 / 09:28 | |
St@SyaN Пользователь Сейчас: Offline
Откуда: Уфа Регистрация: 03.07.2012
| Как задать ограниченный тип данных? В обычном паскале мне, допустим хватило бы типа byte (0..255). В мидлетПаскале же минимальный это integer (много короче ). Обычным способом создать не могу [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 Пользователь Сейчас: Offline
Имя: Денис Откуда: USB Регистрация: 07.01.2013
| есть char, может хранить целочисленное значение от 0 до 255, вроде так.
|
24.08.2013 / 15:22 | |
St@SyaN Пользователь Сейчас: Offline
Откуда: Уфа Регистрация: 03.07.2012
| usb_device, символ хранит же, не?
|
24.08.2013 / 15:43 | |
St@SyaN Пользователь Сейчас: Offline
Откуда: Уфа Регистрация: 03.07.2012
| Есть такой код: procedure painter;
var temp:integer;
begin
for y:=0 to 319 do for x:=1 to 239 do
begin
temp:=canvas[y,240-x];
if temp=0 then setcolor(0,0,0);
if (temp>=101) and (temp<=130) then setcolor(colors[temp-100,1],colors[temp-100,2],colors[temp-100,3]);
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);
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));
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));
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));
plot (x,y);
end;
repaint;
end;
Проблема вот в чем: на кемуляторе работает с 120 фпс (примерно). На телефоне этот код (именно этот) выдает 1 фпс. Что можно сделать, чтобы было хотя бы 10. Весь код и скомпилированный йар прилагается.
Прикрепленные файлы: NewProject.jar (9.1 кб.) Скачано 140 раз NewProject.mpsrc (5.89 кб.) Скачано 749 раз |