[YellowAfterlife]

Название: 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
  tmp: resource;
  str: string;
  i, h: integer;
begin
  // Загружаем строки:
  res8.load('/data.txt'); // файл с текстом
  // Выводим все на экран:
  setColor(42, 42, 42);
    fillRect(0, 0, getWidth, getHeight);
  setColor(240, 240, 240);
  h := getStringHeight('');
  for i := 1 to res8.length do
    drawText(res8.line(i), 4, 4 + (i - 1) * h);
  rePaint;
  // Выгружаем строки (если они больше не нужны):
  res8.unload;
  // Ждем.
  repeat delay(1000); forever;
end.