---------------------------------------------------------------------------
| 63 | } |
| 64 | //--------------------------------------------------------------------------- |
| 65 | bool __fastcall TFile::Close(void) |
| 66 | { |
| 67 | if( ! handle ) return false; |
| 68 | LastError = 0; |
| 69 | Error = ! CloseHandle( handle ); |
| 70 | if( Error ) LastError = GetLastError(); |
| 71 | handle = NULL; |
| 72 | if( Exceptions && Error ) throw 0; |
| 73 | return ! Error; |
| 74 | } |
| 75 | //--------------------------------------------------------------------------- |
| 76 | bool __fastcall TFile::IsOpen(void) |
| 77 | { |
nothing calls this directly
no outgoing calls
no test coverage detected