type c_basic_file= class(c_basic_object)
private
m_file: File;
public
m_c_file_name: c_file_name;
m_io_result: Integer;
m_display_open: Boolean;
m_is_open: Boolean;
m_size: Integer;
m_write_begin, m_write_end: Integer;
constructor create_basic_file(p_name, p_complete_name: string); Virtual;
function f_check_and_display_io_result: Boolean;
function f_erase: Boolean;
function f_create: Boolean;
function f_force_create: Boolean;
function f_rename_previous_and_create: Boolean;
function f_rename_previous_and_create_with_extension(p_extension: String): Boolean;
function f_open: Boolean; Virtual;
function f_open_or_create: Boolean;
function f_append: Boolean;
function f_exists: boolean;
procedure rename_file(p_new_name: String);
procedure force_rename_file(p_new_name: String);
procedure change_file_extension(p_extension: String);
procedure change_complete_name(p_complete_name: String);
function f_change_file_extension(p_extension: String): Boolean;
function f_test_or_create_u_path: String;
procedure seek_file(p_position: Integer);
function f_file_position: Integer;
function f_file_size: Integer;
function f_eof: Boolean;
function f_block_write(p_pt: Pointer; p_length: Integer): Boolean;
function f_block_read(p_pt: Pointer; p_length: Integer): Boolean;
procedure flush_file;
procedure copy_file(p_copy_name: String);
procedure truncate_file;
procedure close_file; Virtual;
Destructor Destroy; Override;
end;
|