Code: void write() { TFileIOResult dIOResult ; Delete(FILENAME, dIOResult);
TFileIOResult nIOResult ; TFileHandle LIGHTFILE ; int FileSize = index ; int i;
OpenWrite ( LIGHTFILE , nIOResult , FILENAME , FileSize );
for (i=0;i < index ;i ++) { WriteByte ( LIGHTFILE , nIOResult ,arr[i] ); }
Close ( LIGHTFILE , nIOResult ); }
|