Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function isFileEmpty(): Boolean;
- var
- SourceFile: TBinaryFile;
- IsEmpty: boolean;
- SizeOfFile: integer;
- begin
- assign(SourceFile, getCurrentDir + '\' + FILE_NAME);
- Reset(SourceFile);
- SizeOfFile := FileSize(SourceFile);
- close(SourceFile);
- Result := (SizeOfFile = 0);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement