Clears all data of a file and sets the file size to zero.
Kernel.bdh
FClear( in hFile: number ): boolean;
true if successful
false otherwise
Parameter | Description |
---|---|
hFile | Valid handle to an open file. This handle must have been returned from a previous call to FOpen. |
dcltrans transaction TMain var hFile : number; sOutput : string; begin // create new file and write string to file FOpen(hFile, "c:\\temp\\dummyfile.txt", OPT_FILE_ACCESS_READWRITE, OPT_FILE_CREATE); sOutput := "Hello world!"; FWrite(hFile, sOutput); write("new file created"); writeln; // clear file FClear(hFile); write("file cleared"); writeln; // close file FClose(hFile); write("file closed"); writeln; end TMain;
new file created file cleared file closed