Programmation avancée avec MIDlet Pascal

MIDlet Pascal permet de gérer plusieurs types de ressources fichiers: les fichiers sons et les fichiers images. Sont également gérés les fichiers textes, qui peuvent s'avérer utiles dans certaines applications.
Les ressources seront accessibles dans les applications depuis le jar.
Pour ouvrir un fichier il faut utiliser openResource. Je vous conseille, après avoir utilisé openResource, de tester si le fichier à bien été ouvert ou si le fichier est disponible avant toute autre opération. La fonction permettant de faire ceci est resourceAvailable.

ReadLine permet de lire une ligne du fichier.

Prenons un cas pratique simple : lire une ligne dans un fichier texte et l'afficher à l'écran.
Créons un fichier texte monfichier.txt avec comme contenu 'Ceci est une ligne de monfichier.txt'.

var 
    res   : resource; 
    ligne  : string; 
begin 
   res := openResource('/monfichier.txt'); 
   if (resourceAvailable(res)) then 
   begin 
    ligne := readLine(res);
    
    closeResource(res);
   end;   
         
   drawText(ligne, 0, 0);
   repaint;     
   
   delay(5000); 
end.