 resource 
 

  ,      JAR      .   ,     : 
  
 
  
  openResource  
  resourceAvailable  
  closeResource 
  readByte   
  readLine   
 
  
: 

  var res   : 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('Byte is: ' + chr(byte)); 
      index := formAddString('Line is: ' + line); 
      delay(1000); 
  end.  

