244 Int64 fpcrtl_fileSize(File f)

   245 {

   246     assert(f->record_len > 0);

   247 

   248     IOResult = IO_NO_ERROR;

   249     int i = fseek(f->fp, 0, SEEK_END);

   250     if (i == -1) {

   251         IOResult = IO_ERROR_DUMMY;

   252         return -1;

   253     }

   254     long size = ftell(f->fp);

   255     if (size == -1) {

   256         IOResult = IO_ERROR_DUMMY;

   257         return -1;

   258     }

   259     return size / f->record_len;

   260 }

   261 

   262 bool fpcrtl_deleteFile(string255 filename)

   263 {

   264     FIX_STRING(filename);

   265 

   266     int ret = remove(filename.str);

   267     if(ret == 0) {

   268        IOResult = IO_NO_ERROR;

   269        return true;

   270     } else {

   271        IOResult = IO_ERROR_DUMMY;

   272        return false;

   273     }

   274 }

   275