Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Библиотеки

Ответ
 
Опции темы
Старый 08.08.2011, 15:33   #1
YellowAfterlife
ПроЭктировщик
 
Аватар для YellowAfterlife
 
Регистрация: 19.02.2011
Сообщений: 134
Написано 81 полезных сообщений
(для 219 пользователей)
Хорошо Lib_res8 - загрузка русского текста из ресурсных файлов


Название: res8
Версия: 1.0
Автор: YellowAfterlife
Описание: Эта библиотека реализует простой интерфейс для чтения строк из файлов в кодировке UTF-8 (в основном вам это может понадобится для корректной загрузки русского текста). Библиотека в основном предназначена для пользователей MidletPascal3.*, поскольку в нем загрузка русского текста из файла не представляется возможной.
Скачать: (ссылка) (mirror - см. вложения)
Функции:
res8.load(filename: string) - загружает в память строки из файла.
res8.unload - выгружает строки из памяти (освобождая ее).
res8.loaded: integer - возращает, загружены ли строки.
res8.length: integer - возращает количество строк.
res8.line(index: integer): string - возращает строку с указанным индексом
Пример кода:
program res8;
uses res8;
var
  
tmpresource;
  
strstring;
  
ihinteger;
begin
  
// Загружаем строки:
  
res8.load('/data.txt'); // файл с текстом
  // Выводим все на экран:
  
setColor(424242);
    
fillRect(00getWidthgetHeight);
  
setColor(240240240);
  
:= getStringHeight('');
  for 
:= 1 to res8.length do
    
drawText(res8.line(i), 4+ (1) * h);
  
rePaint;
  
// Выгружаем строки (если они больше не нужны):
  
res8.unload;
  
// Ждем.
  
repeat delay(1000); forever;
end
Вложения
Тип файла: zip Lis_res8.zip (2.4 Кб, 837 просмотров)
__________________

Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо YellowAfterlife за это полезное сообщение:
Igor (18.12.2011), scimitar (08.08.2011)
Старый 11.08.2011, 22:00   #2
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

Ыть!

А можно сделать и так:
Function Decoder(Deco:string):string;
	var
	ch:char;
	ds:string;
	d_temp,i:integer;
	begin
	ds:='';
	for i:=1 to length(Deco) do
		begin
		ch:=getchar(deco,(i-1));
		d_temp:=ord(ch);
		if d_temp>122 then ds:=ds+chr(d_temp+1104)
		else
		ds:=ds+getchar(deco,j-1);
		end;
		decoder:=ds;
		end;
Стандартные возможности МП рулят! Так то!

P.S. незнаю, работает ли это в МП3.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 12.08.2011, 01:58   #3
YellowAfterlife
ПроЭктировщик
 
Аватар для YellowAfterlife
 
Регистрация: 19.02.2011
Сообщений: 134
Написано 81 полезных сообщений
(для 219 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

PassCall: Если бы все было так просто, на форуме не было бы многочисленных тем по поводу этого.
Возможно стоит уделить минуту тестированию программы перед тем как писать сообщение?

MP3* просто-напросто неправильно считывает данные из файла. То есть пары русских букв считываются как одинарные символы.

P.S.: использовать глобальную переменную j в локальном коде - плохая идея.
__________________

Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...
(Offline)
 
Ответить с цитированием
Старый 18.12.2011, 14:03   #4
Maga05
Оператор ЭВМ
 
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений
(для 5 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

у меня выдает слово forever не является именем подпрограммы, функции или переменной
слово until пропущено end найдено
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
qweasd (31.08.2012)
Старый 18.12.2011, 23:31   #5
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

Сообщение от Maga05 Посмотреть сообщение
у меня выдает слово forever не является именем подпрограммы, функции или переменной
слово until пропущено end найдено
Ищи где пропустил фигурную скобку "{" или "}" ...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Старый 20.12.2011, 02:51   #6
cepreu
AnyKey`щик
 
Регистрация: 19.12.2011
Сообщений: 4
Написано 0 полезных сообщений
(для 0 пользователей)
Сообщение Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

begin
  // Загружаем строки:
  showcanvas;
  res := openResource('/data.txt');
  if resourceAvailable(res) then
  begin
    Texts := readLine(res);
    closeResource(res);
  end;

  res8.load('/data.txt'); // файл с текстом
  // Выводим все на экран:
  setColor(255, 255, 255);
    fillRect(0, 0, getWidth, getHeight);
  setColor(40, 40, 40);
  h := getStringHeight('');
  for i := 1 to res8.length do
    drawText(res8.line(i), 4, 4 + (i - 1) * h);
  drawText(Texts + ' ' + res8.loaded + ' ' +  res8.length, 0, 0);
  rePaint;
  // Выгружаем строки (если они больше не нужны):
  res8.unload;
  // Ждем.
  repeat delay(1000); forever;
end.

data.txt: 
First 
Second
...

На дисплей: First 0 0
Что то не получается - просто модифицировал пример из Lib_res8_ru.txt.
Помогите, pls
(Offline)
 
Ответить с цитированием
Старый 20.12.2011, 15:38   #7
bormotan
Оператор ЭВМ
 
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

большая просьба - добавьте функцию вроде обычного readline - чтобы читала только одну строку
(Offline)
 
Ответить с цитированием
Старый 28.11.2012, 11:02   #8
Maga05
Оператор ЭВМ
 
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений
(для 5 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

на эмуляторе все работает нормально, а на телефоне пусто
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 12:18.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com