Returns the current position of the file pointer.
Kernel.bdh
FCurrentPositionGet( in hFile : number, out nPos : 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. |
nPos | Variable receiving the current position of the file pointer |
dcltrans transaction TMain var hFile, nPos : 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; // get current file position FCurrentPositionGet(hFile, nPos); write("current pos = "); write(nPos); writeln; // close file FClose(hFile); write("file closed"); writeln; end TMain;
new file created current pos = 12 file closed