TMemDirectoryEntry

type TMemDirectoryEntry = class(TMultiFileEntry)

protected

  FFlags: Word;

  FName: utf8String;

  FExtension: utf8String;

  FUncompressedSize: Int64;

  FEmbeddedStreamPos: Int64;

  FMemDirectory: TMemDirectory;

  function GetName; override;

  procedure SetName(); override;

  function GetFileSize; override;

  function GetExtension; override;

  function InternalCopyTo();

public

  function CopyTo(); override;

  function GetStream; override;

  constructor Create(); overload;

  constructor CreateDirectory();

  constructor CreateFromData();

  destructor Destroy; override;

  property EmbeddedStreamPos: Int64; [rw]

  property IsCompressed: Boolean; [rw]

  property IsDirectory: Boolean; [r]

  property CompressedSize: Int64; [r]

  property Flags: Word; [r]

  property MemDirectory: TMemDirectory; [r]

end;

TMemDirectoryEntry

TMultiFileEntry

TObject