MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Понедельник, 28.05.2018, 04.19.10
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №8 "Файловый ресурс"

Здравствуйте.В этом уроке вы научитесь работать с файлами из ресурса приложения.
Это может помоч при создании игр и приложений.Например можно записать все левела в соответствующие файлы или в СМС сборник все тексты СМС, в таком случает программный код будет намного меньше, и их всегда можно сразу отредактировать.Любой файл можно сделать с помощью блокнота или любого другого текстового редактора.Для того что бы открыть файл нужно для начала объявить переменную типа resource.Потом вызвать функцию OpenResource(name:string):resource.Для закрытия открытого файла используется процедура CloseResource(res:resource).И так мы открыли ресурс, но когда с ресурса нельзя прочесть ни строку ни байта,тогда она бесполезная, так давайте сделаем её полезной с помощью функций ReadLine(res:resource):string, которая выводить следующую строку из ресурса и ReadByte(res:resource):integer, которая читает следующий байт из ресурса, или "EOF" когда нечегочитать.А есть ещё функция ResourceAvailable(res:resource):boolean, которая возвращает true если данный ресурс существует.
Привожу пример роботы:

ВНИМАНИЕ: для коректной роботы, последняя строка файла должна быть пустая (Ибо последнюю строку из файла читает не коректно)

var res   : resource; //Объявляем переменную resource
    byte  : integer;
    line  : string;
    index : integer;
begin
      res := OpenResource('/data.txt'); // Открываем файл
      if (resourceAvailable(res)) then // Если файл существует...
      begin
          byte := ReadByte(res); // Читаем байт
          line := ReadLine(res); // Читаем строку
          CloseResource(res); // Закрываем файл
      end;
      ShowForm;
      index := FormAddString('Прочтенный байт: ' + chr(byte));
      index := FormAddString('Прочтенная строка: ' + line);
      Delay(1000);
end.

  Поздравляем, вы прошли урок №8
← Урок №7Урок №9 →

Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz