TFileStream

type TFileStream = class(TReaderWriter)

protected

  FFileName: string;

  FOpenMode: TFileStreamOpenMode;

  FOptions: TFileStreamOptions;

  FAccessHint: TFileStreamAccessHint;

  procedure SetPosition(); override;

  procedure SetSize(); override;

  function GetReader; override;

  function GetWriter; override;

  function GetFileHandle;

  function GetFileCreated;

  procedure EnsureCreateOnWrite;

public

  constructor Create();

  property FileName: string; [r]

  property FileHandle: Integer; [r]

  property FileCreated: Boolean; [r]

  procedure DeleteFile;

  function Write(); override;

end;

TFileStream

TReaderWriter

AStream

TObject